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1. EINLEITUNG 


Wenn man sich einen Rechner gekauft hat, stellt man bald 
fest, wie unangenehm es ist, daß der Rechner durch das 
Ausschalten alles vergißt, was man ihm mit viel Mühe 
beigebracht hat. Man braucht also eine Möglichkeit, was man 
dem Rechner beigebracht hat, sicher zu lagern, wenn dieser 


seine wohlverdiente Ruhepause macht. 


Da alles, was der Rechner weiß, aus Nullen und Einsen 
besteht, liegt es nahe, diese Informationen magnetisch 


aufzuzeichnen, zum Beispiel auf einer Cassette. 


Damit der Rechner aber das, was er einmal abgespeichert hat, 
wieder lesen kann, muß er es mit einem festen Format 
abspeichern, er muß dem Programm bestimmte Parameter 
mitgeben. Um das zu gewährleisten, ist im Rechner ein 


Programm fest eingebaut, das dies alles regelt. 


Wenn sie aber Ihre Bedienungsanleitung zur Hand nehmen, 
stellen Sie fest, daß dort über die Art und Weise, wie der 
C-64 oder VC 20 mit der Datassette arbeitet und wie Sie sie 


bedienen müssen, recht wenig steht. 


Dieses Buch nun soll Ihnen helfen, besser mit der Datassette 
arbeiten zu können und zu verstehen, wie der Computer mit 


ihr zusammenarbeitet. 


Anhand von vielen kleinen Beispielprogrammen möchte ich 
Ihnen weiterhin nahebringen, daß Sie mit der Datassette 
bedeutend mehr anfangen können, als das Handbuch vermuten 
läßt. Als krönenden Abschluß finden Sie im zweiten Teil 
dieses Buches ein komplettes, neues Betriebssystem zur 
Daten- und Programmspeicherung mit der Datassette. Dieses 
System arbeitet um einiges schneller als das eingebaute 
Betriebssystem, ja sogar schneller als eine 
Diskettenstation. Mit diesem Programmpaket möchte ich 


zeigen, daß für den privaten Personalcomputer der bedeutend 
preiswertere Cassettenrecorder meistens ausreichend ist, 


wenn man nur die richtige Software benutzt. 


Und nun noch ein Hinweis zur Benutzung dieses Buches: 


Alle in diesem Buch veröffentlichen Programme sind sowohl 
auf dem C-64 als auch auf dem VC 20 lauffähig. Da es nicht 
bei allen Programmen möglich ist ein Programm zu schreiben, 
das auf den beiden Computern lauffähig ist, sind zwei 
Versionen abgedruckt. 


Bei Maschinensprache-Programmen sind jeweils ein 
ASSEMBLER-Listing, ein Basic-Lader für den cC-64 und ein 
Basic-Lader für den VC 20 abgedruckt, um eine möglichst 


große Benutzerfreundlichkeit zu erreichen. 


In den Basic-Programmen sind zur besseren Lesbarkeit alle 
Steuerzeichen übersetzt worden und in eckige Klammern 
gesetzt worden. Wenn Sie also HOME,RVSON in eckigen klammern 
lesen, müssen Sie die CLR/HOME-Taste drücken für HOME und 
dann die CTRL-Taste mit der Taste 9 für RVSON. 
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2. DIE BEFEHLE ZUR DATASSETTEN-HANDHABUNG 


Das Commodore-Basic stellt Ihnen acht Befehle zum Arbeiten 


mit der Datassette zur Verfügung: 


SAVE Programme speichern 


1% 

2. LOAD Programme laden 

3. VERIFY Programme auf Richtigkeit überprüfen 
4. OPEN Eine Datei eröffnen 

5. CLOSE Eine Datei schließen 

6. PRINT# Einen Ausdruck senden 

7. INPUT# Einen Ausdruck einlesen 

8. GET# Ein einzelnes Byte einlesen 


Im folgenden möchte ich die einzelnen Befehle näher 


beschreiben. 


2.1 SAVE 


Mit diesem Befehl veranlassen Sie den Computer, das im 
Speicher befindliche Programm abzuspeichern. Um zu wissen, 
an welcher Stelle das Programm im Speicher steht, gibt es in 
Ihrem Rechner einige Speicherstellen, in denen steht, wo das 
Programm beginnt und wo es endet. 

Der Rechner legt sich nämlich sofort nach dem Einschalten 
ein "Merkheft" an. Dieses Heft hat vier Seiten (O0 - 3), 
sogenannte "Pages" und liegt am Anfang des ganzen 
Speicherbereiches. Jeweils 256 Speicherstellen werden 
aufgrund der prozessoreigenen Speicherverwaltung zu einer 
Page zusammengefaßt, da jede Speicherstelle oder auch jedes. 
Byte genau 256 (O0 - 255) verschiedene Werte annehmen kann. 
In der nullten Seite, also von O bis 255, merkt sich der 
Rechner die Werte, die er sehr oft braucht. 


BASICRAM Aufteilung 
und Zeiger 


Strings 


Freier 
Speicherplatz 


Felder 


| Variablen 


BASIC 
Programm 


Bild 1  Aligemeiner Aufbau und Zeiger des BASIC RAM 


In den Stellen 43, 44 steht immer der aktuelle Start des 
Basic-Speichers und in 45, 46 das Ende eines 


Basic-Programns. 


Schauen Sie doch einmal nach. Geben Sie PRINT PEEK (43), 
PEEK (44), PEEK (45), PEEK (46) ein. Auf dem Bildschirm 


erscheint dann 


wenn sie kein Programm geladen haben. Die Bedeutung der 
einzelnen Zeiger können Sie der Abbildung 1 entnehmen. 


Da der Rechner 65535 Speicherstellen hat, werden Adressen 
immer durch 2 Bytes ausgedrückt. Das erste Byte, das LSB 
(Last Significant Byte), gibt die Position innerhalb einer 
Seite an, das zweite, das MSB (Most Significant Byte), die 


Seitennummer. 


Unser Basic-Bereich fängt also auf Seite 8 an der ersten 
Speicherstelle an, also mit der Speicherstelle 8*256+1 = 
2049. \ 


"Wieso stehen aber in den Speicherstellen 45, 46 die Werte 3 
und 8, ich habe doch gar kein Programm im Speicher ?", 
werden Sie jetzt fragen. Das hat folgenden Grund: Damit der 
Rechner weiß, wo ein Basicprogramm zu Ende ist, hängt er 
immer 2 Nullen an das Ende, um es zu markieren. Sie haben 
also jetzt ein Programm im Speicher, welches sozusagen nur 
aus einer Programmendmarkierung besteht. Sie können dies 


leicht überprüfen. Wenn Sie 
PRINT PEEK (PEEK(45)+PEEK(46)*256 -1) 


eingeben, erhalten Sie 0. Geben Sie jetzt einmal eine 


Basic-Zeile ein, z.B. 
10 PRINT "HALLO" 


und schließen Sie die Eingabe mit RETURN ab. Wenn Sie jetzt 


wie oben die Inhalte der Speicherstellen 43, 44, 45, 46 


auslesen, erhalten Sie 
1. 8 16 8 


Der Rechner hat entsprechend Ihres - Programmes die 


Eintragungen in seinem Merkheft geändert. 


Nach dieser Exkursion in die Speicherverwaltung kehren wir 
wieder zum SAVE-Befehl zurück. 


Durch diesen Befehl veranlassen wir also den Rechner, alles, 
was zwischen den eben genannten Zeigern steht, auf Band 
abzuspeichern. Dem Computer ist es dabei egal, ob auf dem 
Band schon etwas abgespeichert ist oder nicht. Wie bei einem 
normalen Cassettenrecorder wird die Cassette einfach 


überschrieben. 


Damit Sie aber das abgespeicherte Programm wieder finden 
können, haben Sie die Möglichkeit, dem abzuspeichernden 
Programm einen Namen zu geben. Die Syntax ist dann 
folgende 


SAVE"NAME" 


Sie haben natürlich auch die Möglichkeit, den String "NAME" 
vorher in eine Stringvariable einzulesen und ein Programm 
mit folgender Syntax abzuspeichern 


A$="NAME" 
SAVEA$ 


Diese Möglichkeit kann wichtig sein, wenn Sie diesen Befehl 
innerhalb von Programmen nutzen. Aber darüber finden Sie im 
Kapitel 5 mehr. | 
\ 

Nach dem Namen haben Sie dann noch die Möglichkeit, eine 
Geräteadresse und eine Sekundäradresse, jeweils durch Komma 
getrennt, folgen zu lassen. Die genaue Bedeutung der 
Sekundäradresse finden Sie’in Kapitel 3 beschrieben. 


Die Geräteadresse sagt dem Computer, welches Peripheriegerät 
er wählen soll. Sie stellt sozusagen die Hausnummer der 
verschiedenen Geräte dar. Die Hausnummer der Datassette ist 


1, die einer Diskettenstation 8 oder 9. 


Damit Sie aber nicht soviel tippen müssen, ist Ihr Computer 
so programmiert, daß er immer die Datassette auswählt, wenn 
keine Angabe über die Geräteadresse gemacht wird. 


2.2 LOAD 


Mit diesem Befehl können Sie das einmal Abgespeicherte 
wieder laden. Geben Sie dem Rechner keinen Namen an, läd er 
das nächste Programm, welches er finden kann. Sie können bei 
diesem Befehl genauso wie bei SAVE einen Namen angeben. Auch 
können Sie hier wieder eine Geräte- und Sekundäradresse 
folgen lassen. Hierfür gilt das gleiche wie das beim 
SAVE-Befehl. 


Nach jedem LOAD-Befehl im Direktmodus werden vom Rechner 
automatisch die Eintragungen in seinem Merkheft entsprechend 
dem geladenen Programm geändert. Dies ist zu beachten, wenn 
Sie Maschinenprogramme laden. Wenn Sie z.B. ein 
Maschinenprogramm laden, das am Ende des Basic-Speichers 
liegt, werden dementsprechend auch die Basic-Endvektoren auf 
das Basic-RAM-Ende gesetzt. Eine weitere Eingabe wird danach 
mit "?OUT OF MEMORY ERROR" vom Rechner kommentiert. Um nun 
weitere Eingaben machen zu können, müssen Sie entweder in 
die Zeiger 45,46 den alten Wert POKEn oder Sie geben einen 
NEW-Befehl, damit das im Basic-Speicher befindliche Programm 
nicht aber das Maschinenprogramm gelöscht wird. 


Sie können den NEW-Befehl umgehen, wenn Sie das 


Maschinenprogramm im Programmodus laden. Näheres lesen Sie 
dazu im Kapitel 5. 
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2.3 VERIFY 


Dieser Befehl arbeitet ähnlich wie der LOAD-Befehl. Der 
einzige Unterschied ist, daß durch diesen Befehl das 
Programm nicht in den Speicher geschrieben wird, sondern 
Byte für Byte mit dem im Speicher stehenden verglichen wird. 
Dadurch können Sie testen, ob eine Programmspeicherung 
erfolgreich war. 


War die Speicherung erfolgreich und hat auch die Cassette 
keinen Fehler, erscheint OK auf dem Bildschirm. Wird bei dem 
Vergleich ein Fehler festgestellt, erhalten Sie die Meldung 
"?VERIFY ERROR". 


2.4 OPEN 


Bis jetzt habe ich nur über das Laden und Speichern von 
Programmen geschrieben. Sie haben aber auch die Möglichkeit, 
Daten zu speichern und zu laden. Um dem Rechner mitzuteilen, 
daß Sie Daten laden oder speichern wollen, müssen Sie mit 
dem OPEN-Befehl eine Datei eröffnen. 


Mit diesem Befehl teilen Sie dem Computer alle Parameter 
mit, die er benötigt, nämlich die Gerätenummer, den 
Filenamen und die Sekundäradresse, die aussagt, ob geladen 
oder gespeichert werden soll. Um eine Datei zu eröffnen, 
müssen Sie folgenden Befehl eingeben 


OPEN 1f,GA,SA, "NAME" 


Mit "NAME" können Sie der Datei wie bei SAVE und LOAD einen 


Namen geben. 
SA steht für Sekundäradresse: 


Über diese Zahl teilen Sie dem Computer mit, ob Sie 
Daten senden ( = 1 ) oder empfangen ( = OÖ ) wollen. 
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Geben Sie eine 2 ein, wird nach dem Abspeichern noch 
ein EOT (End Of Tape) Block geschrieben. Siehe dazu 
auch Kapitel 3. 


GA steht für Geräteadresse: 


Diese Zahl sagt dem Rechner, mit welchem Gerät er 
arbeiten soll. Dabei bedeutet 


oO = Tastatur 

1 = Cassette 

3 = Bildschirm 
4,5 = Drucker 
8,9 = Diskette 


l£f steht für logische Filenummer: 


Diese Zahl, sie kann zwischen O und 255 liegen, 
stellt den Index dieser OPEN - Anweisung dar. Damit 
nicht bei jedem Ein- und Ausgabebefehl alle 
Parameter mit übergeben werden müssen, legt sich der 
Computer eine Tabelle an, in der die Parameter der 
OPEN - Anweisung unter dieser Indexnummer abgelegt 
sind. 


Nachdem wir nun eine Datei eröffnet haben, kommen wir zu den 
Befehlen der Daten Ein- und Ausgabe. 
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2.5 PRINTH UND CLOSE 


Mit dem PRINT#-Befehl ist es möglich, einzelne Daten auf 


Band zu schreiben. 


Zur besseren Erklärung geben Sie einmal folgendes Programm 


ein: 


10 OPEN 1,1,1,"DATENFILE" 

20 PRINT "DATEI WURDE EROEFFNET" 

30 PRINT:PRINT"GEBEN SIE DATEN EIN" 

40 INPUT"DATEN" ;A$ 

50 PRINT#1,A$ 

60 A=A+1 

70 PRINT A"DATEN WURDEN ZWISCHENGESPEICHERT" 
80 PRINT:PRINT"WEITERE DATEN" 


90 GET F$: IF F$ = "" THEN 90 
100 IF F$ = "J" THEN 40 

110 CLOSE1 | 

120 PRINT:PRINT"DATEI WURDE GESCHLOSSEN" 
130 END 


Legen Sie nun eine leere Cassette in Ihren Recorder und 
starten das Programm mit RUN. Es erscheint sofort die 
Meldung "PRESS RECORD & PLAY ON TAPE". Wenn Sie dieser 
Meldung Folge leisten, wird entsprechend der OPEN-Anweisung 
in Zeile 10 ein Dateikopf auf Band geschrieben, der den 
Namen der Datei enthält. Danach hält der Recorder an und Sie 
werden durch Zeile 40 gebeten, Daten einzugeben. 


In der Zeile 50 wird dann durch den PRINT#-Befehl der 
eingegebene String zwischengespeichert. Die Nummer nach der 
PRINT#-Anweisung, es ist die logische Filenummer, stellt den 
Bezug zur OPEN-Anweisung her. Daß der String nicht sofort 
auf Band geschrieben wird, können Sie daran sehen, daß sich 


das Band noch nicht bewegt. 


Erst wenn Sie eine ganze Reihe von Daten eingegeben haben, 
setzt sich das Band in Bewegung, und alle bis dahin 
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eingegebenen Daten werden auf das Band übertragen. Auf den 
Zwischenspeicher, es handelt sich um den Cassettenpuffer, 


werde ich noch im Kapitel 7 genauer eingehen. 


Wenn Sie nun auf die Abfrage in Zeile 100 mit "J" antworten, 
können Sie weitere Daten eingeben. Ist der Puffer voll, 
können Sie feststellen, daß eine Pause entsteht und sich das 
Band kurzzeitig bewegt. Jetzt wird der Puffer auf Band 
geschrieben und anschließend mit "Space" (CHR$(32)) 
beschrieben, um neue Daten aufzunehmen. 


Wenn Sie die Eingabe beenden, verzweigt der Rechner zum 
CLOSE-Befehl in Zeile 110. Die Zahl hinter diesem Befehl ist 
wieder eine logische Filenummer und sagt dem Computer, daß 
er die mit der logischen Filenummer 1 geöffnete Datei 
schließen soll. Das macht er, indem er alle Eintragungen, 
die er in seinem Merkheft unter dem Index 1 notiert hat, 
löscht. Der Rechner schreibt nun hinter die letzte 
Eintragung ein Nullbyte, um das Datenende zu kennzeichnen, 
und speichert den Puffer auf Band. Es ist also sehr wichtig, 
eine Datei wieder zu schließen, da sonst die letzten Daten 


verlorengehen. 


Bis jetzt haben wir nur Strings, bzw. den Inhalt von 
Stringvariablen abgespeichert. Die Frage ist nun:"Wie 
verarbeitet der Rechner numerische Ausdrücke und Variablen?" 
Solche Ausdrücke werden abgespeichert, als wären es Strings. 
D.h. der Rechner führt bei jedem PRINT#-Befehl automatisch 
einen STR$-Befehl durch. Es ist also das gleiche, ob Sie 


PRINT#1,55 
oder 
A$=STR$(55) :PRINT#1,A$ 
schreiben. Aus diesem Grund können Sie später jeden 


numerisch abgespeicherten Wert auch in eine Stringvariable 


einlesen. 
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Eine weitere wichtige Sache ist das Format einer 
PRINT#-Anweisung, wenn Sie mit einer Anweisung mehrere 
Ausdrücke abspeichern wollen. Auf dieses Problem möchte ich 
aber zum besserem Verständnis erst nach dem INPUT#-Befehl 
kommen. 


2.6 INPUT# 


Dieser Befehl verhält sich vollkommen analog zum "normalen’ 
INPUT-Befehl, nur daß hier nicht die Tastatur als festes 
Empfangsgerät voreingestellt ist. Wenn Sie z.B. mit 


OPEN1,O0 


(O=Tastatur) die Tastatur als Sender definieren, verhält 
sich INPUT#1,A$ genauso wie INPUTA$, mit dem kleinen 
Unterschied, daß kein Fragezeichen ausgedruckt wird. 


Wie sich nun INPUT# in Hinsicht auf den Cassettenrecorder 
verhält, sehen wir uns am besten wieder mit einem kleinen 
Beispielprogramm an. Spulen Sie Ihre Cassette zu dem Punkt 
zurück, wo Sie die Datei "DATENFILE" abgespeichert haben, 
und geben Sie folgendes Programm ein | 


10 OPEN 1,1,0,"DATENFILE" 

20 PRINT "DATEI WURDE EROEFFNET" 

30 PRINT:PRINT"DATEN WERDEN EINGELESEN" 

40 INPUT#1,A$ 

50 PRINTA$ 

60 A=A+1 

70 PRINT A"DATEN WURDEN EINGELESEN" 

80 PRINT: PRINT"WEITERE DATEN" 

90 GET F$: IF F$ = "" THEN 90 

100 IF F$ = "J" THEN 40 

110 CLOSE1 

120 PRINT:PRINT"DATEI WURDE GESCHLOSSEN" 
. 130 END 


15 


Wenn Sie nun das Programm starten und laut Anweisung die 
PLAY-Taste drücken, sehen Sie, daß das Band einige Zeit 
läuft und dann anhält. Ihr Rechner hat nun aufgrund des 
' OPEN-Befehls die Datei "DATENFILE" gesucht und dann aufgrund 
des INPUT#-Befehls in Zeile 40 -den ersten Datenblock 
eingelesen und den ersten String der Variablen A$ übergeben, 
die über Zeile 50 auf dem Bildschirm angezeigt wird. 


Die einzelnen Daten stehen jetzt genauso im Puffer, wie Sie 
sie beim Abspeichern hereingeschrieben haben. Hinter jedem 
String steht aufgrund der PRINT#-Anweisung ein "Carriage 
Return’ (CHR$(13)), also ein Zeilenvorschub. Der 
PRINT#-Befehl schreibt die Daten genauso in den Puffer wie 
ein PRINT-Befehl sie auf den Bildschirm schreiben würde. Der 
INPUT#-Befehl erkennt genauso wie der INPUT-Befehl durch ein 
Komma oder RETURN, daß hier der Ausdruck zu Ende ist. 


Byte lo |ı I2 |3 Ja Is |6& |7 le I9 J1olıal.. 127128 |29 |30 I31 
Inhalt!s |T Ir |1ı Ilcr!s IT IR |I2 IlcrR|s IT |...ıR 15 ICR OO 


Beantworten Sie jetzt die Frage, ob weitere Daten eingelesen 
werden sollen. Bei unserem Beispielprogramm gebben Sie °’J° 
ein. Jetzt können Sie String für String wieder einlesen und 
auf dem Bildschirm ausdrucken lassen, bis Sie die Meldung. 
erhalten "?STRING TOO LONG ERROR". | 


Diese Meldung erhalten Sie, weil Sie inzwischen den letzten, 
abgespeicherten String eingelesen haben und nun versuchen, 
einen weiteren einzulesen. Der Computer sucht das Ende des 
Strings, also ein Komma oder CARRIAGE RETURN (kurz CR ), 
findet aber in den nächsten folgenden 80 Speicherstellen 
keins. (Sie können maximal 80 Zeichen mit einer INPUT-bzw. 
INPUT#-Anweisung einlesen. ) Daraus schließt der Computer, 
daß hier ein String länger als 80 Zeichen vorliegt und gibt 
die Fehlermeldung aus. | 


Damit Sie aber nicht bei einem normalen’ Dateiprogramm 
immer diese Fehlermeldung bekommen, gibt es eine 
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Möglichkeit, das Dateiende mit Hilfe der Statusvariablen zu 
erkennen. Wie Sie das programmieren müssen, finden Sie im 
Kapitel 4. 2. 


Diese Fehlermeldung erhalten Sie aber nicht. nur, wenn Sie 
über das Dateiende hinaus zu lesen versuchen, sondern auch 
dann, wenn die Daten in einem falschen Format abgespeichert 


wurden. 


- Bei der Besprechung des PRINT#-Befehls haben wir immer nur 
einen Ausdruck pro PRINT#-Anweisung abgespeichert, was zur 
Folge hatte, daß automatisch immer ein CR angehängt wurde. 
Es ist aber auch möglich, mehrere Ausdrücke mit einer PRINT# 
- Anweisung abzuspeichern.. Dabei muß aber darauf geachtet 
werden, daß die einzelnen Ausdrücke voneinander separiert 


werden. Schreiben Sie z. B. 

PRINT#1,A$,B$ 
mit A$="STRINGI" und B$="STRING2", werden die beiden 
Ausdrücke genauso in den Puffer geschrieben, wie sie mit 


einer PRINT-Anweisung auf den Bildschirm geschrieben würden, 


nämlich 


Byte oO |i1ı |2 |13|4 |5 |6 |7 |8 |9 [10] 11512] 13) 14|15|16| 17 
Inhalt |S |T |R|I|N|G [1 S|T|R |I |N |G [2 |CR 


Wenn Sie aber folgende Anweisungen geben: 


PRINT#1,A$;T$;B$ 


erhalten Sie 
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Jetzt sind die Strings eindeutig voneinander getrennt und 
werden von einer INPUT#1,A$,B$-Anweisung richtig eingelesen. 


Auf eine beachtenswerte Besonderheit muß ich aber noch 
hinweisen. Das Komma reicht zwar aus, um die Daten für eine 
eindeutige Variablenzuweisung mit INPUT# zu gewährleisten, 
aber es reicht nicht aus, dem Computer zu sagen, daß hier 
eine Eintragung zu Ende ist und daß ab dem nächsten Byte 
eine neue beginnt. Das klingt zwar sehr ähnlich, ist es aber 
nicht. Deshalb möchte ich im folgenden etwas näher darauf 


eingehen. 


Man kann den Computer mit einer großen Firma mit vielen 
Abteilungen vergleichen. Das Verarbeiten von Daten beim 
Lesen und Schreiben überläßt er zwei Abteilungen. 


1. Abteilung - Variablenverarbeitung 
Diese Abteilung sorgt dafür, daß ein Ausdruck, 
der irgendwo im Speicher steht (Cassettenpuffer, 
Bildschirmspeicher, Programm etc.’ ); der 
richtigen Variablen im richtigen Format 


zugeordnet wird. 


2. Abteilung - Speicherplatzverwaltung 
Diese Abteilung sagt der ersten Abteilung immer, 
ab welchem Speicherplatz der für sie interessante 
Ausdruck steht. 


Jede der beiden Abteilung hat nun ihre eigene Art, das Ende 
eines Ausdrucks und somit den Beginn eines neuen zu suchen. 
Der ersten Abteilung ist es egal, ob sie ein Komma oder 
einen CR findet. Bei beiden weiß sie, daß hier ein Ausdruck 
zu Ende ist und danach ein neuer beginnt. Die zweite 
Abteilung kümmert sich um das Komma überhaupt nicht. Sie 
erkennt nur den CR als Trennungszeichen an. D.h. sie gibt 
als Startpunkt für einen neuen Ausdruck immer die Stelle 
nach einem CR an. 


Am besten veranschaulicht man sich das mit einem kleinen 
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Beispielprogramm. Geben Sie einmal die folgenden Zeilen ein, 
legen eine Leercassette in Ihren Recorder und starten das 
Programm mit RUN. 


10 OPEN1,1,1, "TEST" 

20 T$="," 

30 A1$="STRINGI" : A2$="STRING2" 
40 A3$="STRING3" : A4$="STRING4" 
50 PRINT#1,A1$;T$;A2$;T$;A3$ 

60 PRINT#1,A4$ 

70 CLOSE1 

80 END 

100 OPEN1,1,0, "TEST" 

110 INPUT#1,A$ 

120 PRINT A$ 

130 INPUT#1,A$ 

140 PRINT A$ 

150 CLOSE 1 

160 END 


Nachdem die Datei TEST abgespeichert wurde, spulen Sie Ihre 
Cassette an den Start der Datei zurück und starten das 


Programm mit RUN100. Wenn der Rechner die Datei eingelesen 
hat, stehen die Strings folgendermaßen im Speicher: 


o |ı I2 Ia la Is Ile |7 |se |a |10ol 11lı2] 13) 1a) 15 16 | 17 |18| 19 
s ır|r Ir |n/ic Iı\,|s/rt/|r |ı |n s|2 |, |s |r |r |ı 
20|21|22]23 |24| 25|26| 27] 28| 29] 30| 31|32 |33| 34| 35 

n Ic |3 ler|s |r |rR Ir |n Ic |a |crloo 

Auf dem Bildschirm erhalten Sie: 


STRING1 
STRING4 


Abteilung zwei hat beim ersten INPUT# seinen Zeiger auf den 
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ersten String gesetzt, und Abteilung eins hat ihn dann A$ 
zugeordnet. Da keine weiteren Ausdrücke bei dieser 
INPUT#-Anweisung eingelesen werden sollen, wird die 
Ausführung wieder an Abteilung zwei übergeben. Bei der 
nächsten INPUT#-Anweisung sucht Abteilung zwei das nächste 
CR und findet es vor STRING4. Diesen Startpunkt übergibt sie 

der Abteilung eins, welche den Ausdruck "STRING4" wiederum 


A$ zuweist. 


Ändern Sie jetzt einmal Zeile 110 und 120, indem Sie 
“‚B$,C$° anhängen. Wenn Sie nun die Datei erneut einlesen, 


erhalten Sie auf dem Bildschirm 


STRING STRING2 STRING3 
STRING4 


Jetzt weist Abteilung eins in Zeile 110 erst die beiden 
folgenden Ausdrücke den Variablen B$ und C$ zu, ehe sie das 


Kommando an Abteilung zwei zurückgibt. 
Kurz 


Der Zeiger der Abteilung eins wird durch jede 
Variablenzuweisung auf das nächste Trennungszeichen 
gesetzt (Komma oder CR). 


Der Zeiger der Abteilung zwei wird durch jede 
INPUT#-Anweisung auf das nächste Trennungszeichen 
gesetzt (CR). | 


Zusammenfassend kann man also sagen, daß ein Komma solange 
als Trennung ausreicht, wie Sie die Daten im gleichen Format 
einlesen, wie Sie sie abgespeichert haben. Wollen Sie aber 
beim Einlesen frei sein vom Eingabeformat, dann definieren‘ 


Sie den Trennungsstring mit CR. 
20 T$=CHR$(13) 


Bei so abgespeicherten Daten erhalten Sie immer das gleiche 
Ergebnis, egal ob Sie mit einer INPUT#-Anweisung eine oder 
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mehrere Variablen einlesen. 


Bis jetzt habe ich nur über die Trennung von einzelnen 
Ausdrücken geschrieben. Bei manchen Anwendungen kann es aber 
sinnvoll sein, einzelne Ausdrücke nicht zu trennen. Dies 
erreicht man wie bei dem PRINT-Befehl auf. dem Bildschirm 
dadurch, daß man eine PRINT#-Anweisung mit einem Semikolon 
abschließt. Probieren Sie es einmal mit dem kleinen 
Testprogramm von oben. Ändern Sie die Zeilen folgendermaßen 
ab: 


10 OPEN1,1,1,"TEST2" 
50 PRINT#1,A1$;A2$;A3$; 
100 OPEN1,1,0, "TEST2" 


Löschen Sie Zeile 130 und 140.’ Wenn Sie nun mit' RUN die 
Datei TEST2 abspeichern und sie mit RUN10O0O einladen, 


erhalten Sie: 
STRING1STRING2STRING3STRING4 


Ergeben sich aber durch die Aneinanderreihung Strings, die 
länger als 80 Zeichen sind, können Sie sie nicht mehr mit 
der INPUT#-Anweisung einlesen. Solche Strings können Sie 
dann nur noch Byte für Byte mit der GET#-Anweisung einlesen. 


2.7 GETH 


Auch dieser Befehl arbeitet vollkommen analog dem GET - 
Befehl. Mit ihm können Sie byteweise Daten einlesen. Geben 


Sie einmal folgendes Programm ein: 


10 OPEN1,1,0, "TEST" 

20 GET#1,A$ 

30 PRINTA$; 

40 GETA$: IF A$="" THEN 40 
50 GOTO2O 


21 


Spulen Sie nun zum Beginn der Datei TEST zurück und starten 
Sie das Programm. Nachdem der Computer die Datei gefunden 


hat, erscheint buchstabenweise folgendes Bild 


STRINGI STRING2 STRING3 
STRING4 


Wenn nun noch weitere Zeichen eingelesen werden, können Sie 
keine Veränderung auf dem Bildschirm erkennen, da der Puffer 
mit "SPACE" aufgefüllt ist. Durch folgendes Programm können 


Sie die Zeichen sichtbar machen 
30 PRINT A$,ASC(A$+CHR$(O)) 


Dadurch erreichen Sie, daß jedes Zeichen als Buchstabe und 
Asciiwert ausgedruckt wird. Trifft die GET#-Anweisung auf 
ein Nullbyte, wird es als Leerstring interpretiert. Damit 
bei der Umwandlung in den ASCII-Code dadurch keine 
Fehlermeldung ausgelöst wird, wird zu A$ immer CHR$(O) 
addiert. 


Spulen Sie nun zurück und starten das Programm erneut. Auf 


Ihrem Bildschirm erscheint nun folgendes: 


S 83 
T 84 
R 82 
I 76 
N 78 
G 71 
1 49 
44 
S 83 
N 78 
G 71 
4 52 
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13 


32 


Die Null nach STRING4A ist die Kennzeichnung für das 
Dateiende. Danach folgt nur noch "SPACE". 
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3. DIE SEKUNDARADRESSE 


Wie ich schon im zweiten Kapitel geschrieben habe, gibt es 
neben der Geräteadresse auch eine Sekundäradresse. Diese 
Adresse wird allgemein dazu benutzt, dem Peripheriegerät 
oder dem Computer als Empfänger eine weitere Anweisung zur 
Betriebsart zu übermitteln. 


Vorweg möchte ich noch ein paar grundlegende Bemerkungen 
über die zwei verschiedenen Programmarten machen. Zum einem 
gibt es Basic-Programme. Diese Programme sind nicht abhängig 
davon, in welchem Speicherbereich sie stehen, sie sind 
verschiebbar. | 

Bei dem VC 20 zum Beispiel hängt die Lage des 
Basic-Speicher- Bereiches davon ab, wie er erweitert ist. In 
der Grundversion startet der Basic-Bereich bei der 
Speicherstelle 1025. Erweitern Sie ihn z.B. um 8 kByte, 
beginnt der Basic-Bereich bei 1609. Trotzdem laufen 
Programme, die auf der Grundversion geschrieben worden sind, 
auch auf der erweiterten Version. 


Damit diese Programme auch immer an den Anfang des 
Basic-Bereiches geladen werden, besitzt der VC 20 und auch 
der C-64 einen sog. Relativlader, der automatisch alle 


Basic-Programme an den Basic-Start einliest. 
Die andere Programmart ist das Maschinenprogramm. Diese Art 


von Programme laufen nur in dem Speicherbereich, für den sie 


geschrieben wurden. Sie dürfen nicht relativ geladen werden. 


Um Basic-Programme von Maschinenprogrammen unterscheiden zu 
können, wird die Sekundäradresse bei der Cassettenhandhabung 
benutzt. 


Im einzelnen bewirken die Sekundäradressen folgendes: 
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1. SAVE 


10) 2 Das abgespeicherte Programm wird als 
Basic-Programm gekennzeichnet. Dadurch wird 
erreicht, daß dieses Programm mit dem Befehl LOAD 
automatisch an den gerade aktuellen Basic-Start, 


also relativ, geladen wird. 


1 - Sie kennzeichnet ein Programm ‚als 
Maschinenprogramnm. Wenn Sie ein so gespeichertes 
Programm mit LOAD laden, wird es automatisch an die 
Adresse geladen, von welcher es abgespeichert wurde. 


2 - Sie speichert ein Programm als Basic-Programm ab 
wie mit der Sekundäradresse O0. Zusätzlich schreibt 
der Rechner hinter das Programm noch einen sog. EOT 
(End Of Tape) Block. Dieser Block sagt dem Rechner 
beim Lesen, daß er hier mit der Suche nach weiteren 
Programmen aufhören soll. Trifft der Computer beim 
Suchen eines Programms auf solch einen Block, ohne 
vorher ein Programm gefunden zu haben, so gibt er 
die Meldung aus "?FILE NOT FOUND ERROR" aus. 


3 - Sie kennzeichnet ein Programm als 


Maschinenprogramm und schreibt einen EOT Block 


dahinter. 
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Bei dem Befehl LOAD hat die Sekundäradresse folgende 
Bedeutung: 


Il. LOAD 


O - Das Programm wird entsprechend der Information 
geladen, die im Programmkopf steht. D.h. als 
Maschinenprogramme gespeicherte Programme werden 
auch als solche geladen. Das gleiche gilt für 


Basic-Programme, sie werden relativ geladen. 
1 - Jedes Programm, egal wie es gekennzeichnet 
wurde, wird absolut, also an die Adresse geladen, 


von welcher es abgespeichert wurde. 


Beim OPEN Befehl gibt es folgende Sekundäradressen: 


III. OPEN 


O - Sie Öffnet eine Datei zum Lesen. 
1 - Sie öffnet eine Datei zum Schreiben. 


2 - Sie Öffnet eine Datei zum Schreiben und schreibt 


einen EOT-Block hinter die Datei. 
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4. DIE STATUSVARIABLE 


Wie ich schon in den vorausgegangenen Kapiteln erwähnt habe, 
gibt es in Ihrem Commodore eine festdefinierte Variable, die 
Ihnen Auskunft über den Verlauf einer Cassettenoperation 
gibt. Diese sog. Statusvariable ST wird vom Computer bei 
jedem Zugriff auf Cassette oder andere Peripherigeräte 
gesetzt. Mit ihr haben Sie die Möglichkeit, eventuell 
aufgetretene Fehler genauer zu spezifizieren. Weiterhin 


können Sie mit ihr feststellen, wann eine Datei zu Ende ist. 


Diese Variable besteht aus acht einzelnen "Flags", die 
entsprechend den aufgetretenen Fehlern gesetzt werden. Mit 
Hilfe einer AND Verknüpfung können Sie jedes einzelne Bit 
dieser Variable testen. Näheres über die verschiedenen 
Zahlendarstellungen und logischen Verknüpfungen finden Sie 
in dem Buch VC 20 Tips & Tricks. 


Aus der Tabelle 1 können Sie die genaue Bedeutung der 
einzelnen Flags entnehmen. 


Um das vierte Bit der Statusvariablen zu verstehen, muß man 
wissen, daß der Computer alle Daten und Programme zweimal 
auf Band schreibt und beim Einlesen beide Versionen 
miteinander vergleicht. Näheres finden Sie dazu noch im 
Kapitel 8. 
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Tabelle i 


ST-Bit ST-Dez.-| Bedeutung 


Keine Bedeutung für die Cassette 


Kurzer Block. Ein gefundener Block ist 
kürzer, als er sein müßte. 

Langer Block. Ein gefundener Block ist 
länger, als er sein müßte. 

Second Pass Fehler. Die Daten des ersten 
Pass stimmen nicht mit denen des zweiten 


überein. 


Prüfsummenfehler. Die abgespeicherte 
Prüfsumme stimmt nicht mit der errech- 


neten überein. 
Fileende 


Bandende. EOT wurde gelesen. 


Wie können Sie jetzt diese Variable in Ihren Programmen 
verwenden ? Wie Sie aus der Tabelle entnehmen können, gibt 
das 6. Bit darüber Auskunft, ob eine Datei zu Ende ist. Wenn 
Sie also innerhalb Ihres Programms Bit sechs abfragen, 
können Sie das Einlesen nach dem letzten String beenden. 
Geben Sie einmal folgendes Programm ein und lesen Sie damit 
die im Kapitel 2 angelegte Datei ein. Nachdem "STRING4" 


ausgedruckt wurde, erscheint READY und der Cursor. 


10 OPEN1, 1,0, "TEST" 

20 INPUT#1,A$ 

30 PRINT A$ 

40 IF(ST AND: 64) = 64 THEN6O 
50 GOTO20 

60 CLOSE1 

70 END 
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4.1 PROGRAMME RETTEN NACH LOAD ERROR 


Ihnen ist es bestimmt schon passiert, daß sich Ihr Computer 
nach dem Ladevorgang mit "?LOAD ERROR" meldete und das 
geladene Programm gar nicht oder nur teilweise eingelesen 


wurde. 


Die Ursache dafür ist meistens, daß die Position des 
Tonkopfes relativ zum Band beim Schreiben eine andere war 
als beim Lesen. Abhilfe schafft da nur eine neue Justierung 


des Tonkopfes, wie sie im Kapitel 11.5 beschrieben wird. 


Läßt sich das Programm nach neuer Tonkopfeinstellung immer 
noch nicht laden, liegt der Fehler am Band oder an einer 
fehlerhaften Speicherung des Programms. Sie brauchen aber 
nicht zu verzweifeln. Unter bestimmten Bedingungen ist es 
möglich, das Programm zumindest teilweise zu retten. 


Wenn Sie mit Ihrem Computer ein Programm abspeichern, wird 
es zweimal hintereinander auf Band geschrieben. Beim 
Einlesen wird die erste Version in den Speicher geladen und 
dann mit der zweiten verglichen. Stellt der Rechner dabei 
einen Fehler fest, versucht er erst diesen Fehler zu 
korrigieren. Ist das nicht möglich, setzt er Bit vier in der 
Statusvariablen und gibt ein "?LOAD ERROR" aus. 


Es kann auch sein, daß er einzelne Bits oder 
Bytekennzeichnung nicht lesen kann, was die Synchronisation 
zwischen Leseroutine und eingelesener Information "außer 
Tritt" bringt. Das hat zur Folge, daß die Bits zwei und/ 


oder drei gesetzt werden. 


Jeder aufgetretene Fehler führt dazu, daß die Basic-Vektoren 
45, 46 (Programmende) nicht entsprechend gesetzt werden. 


Falls der Fehler erst gegen Ende des Programms oder erst im 
zweiten Pass aufgetreten ist, können Sie das Programm ganz 
‘oder zumindest teilweilse listen. Diesen listbaren Teil 
können Sie mit einem UNNEW-Befehl retten. 
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Dies ist ein Befehl, der nicht im Commodore Basic 2.0 
enthalten ist. Besitzen Sie keine Basic-Erweiterung, die 
diesen Befehl enthält, können Sie das am Ende dieses 
Kapitels abgedruckte Programm eingeben. Falls Sie kein 
MONITOR-Programm haben, geben Sie es mit dem Basic-Lader ein 
und speichern es ab. Danach starten Sie den Lader. Nun 
können Sie das Maschinenprogramm von der angezeigten 
Startadresse bis zum Basic-RAM-Ende abspeichern (siehe dazu 
Kapitel 6). Das so abgespeicherte Maschinenprogramm können 
Sie nun bei Bedarf einfach mit LOAD zuladen und mit 
SYS(Startadresse) starten, um entweder ein gelöschtes 
Programm wieder ins Leben zu rufen, oder um ein nur 


fehlerhaft ladbares Programm zumindest teilweise zu retten. 


Nachdem Sie mit dem UNNEW-Befehl die Programmendvektoren 
gesetzt haben, speichern Sie es auf einer anderen Cassette 
ab. Nun kommt der schwierigste Teil. Jetzt müssen Sie 
feststellen, wo das Programm beschädigt ist. Das geschieht 
auf die gleiche Weise, wie Sie ein anderes Basic-Programm 


auf Fehler untersuchen. 


Wie schon anfangs bemerkt, ist der häufigste Grund für einen 
"?LOAD ERROR" ein dejustierter Kopf. Darum sollten Sie als 
erstes immer versuchen, den Tonkopf besser auf das Band zu 
justieren und ggf. die oben beschriebene Prozedur mit 
verschiedenen Tonkopfeinstellungen zu wiederholen, bis Sie 
ein möglichst wenig beschädigtes Programm laden können. 
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100 


REM UNNEW 64 


FKERRRERERERRKERH KHK HN HT THE KH TH HN TH TR HI IH RK HH FR EHE HR HR NIE FR EI HER FR 


119 
129 
130 
149 
150 
160 


170 


1890 


PS=8: E=256#PEEK (56) +PEEK (55) -1:A=E-51 

FOR I=A TO E:READ X:PS=PS+X:POKE I,X:NEXT 

IF PS<>5274 THEN PRINT"DATA ERROR":END 

H=INT (A/256) :POKE 56,H:POKE 55, A-256*H 
PRINT"STARTADRESSE"A:NEW 

DATA 165,43,164,44, 133,34, 132,35, 160, 3,200, 177,34, 20 
8, 251,200, 152,24, 101 

DATA 34,160,0,145,43,165,35,105,0,200,145,43,32,51,1 
65, 165,34, 105,2,133 

DATA 45, 165,35, 105,0, 133,46,32,99, 166, 76, 123, 227 


FFEREREEREREREEKRRE EEK HHTTR TH TF TR TR HK HE TH HR FH HR RER ER HR FH HEHE FH HR HH FR N 


108 


REM UNNEW 29 


PREISER EEEREREEEETEEEEEEL EEE EEE EEELER TEN. 


110 
120 
150 
140 
150 
160 


170 


189 


PS=0: E=256*PEEK (56) +PEEK (55) -1:A=E-51 

FOR I=A TO E:READ X=PS=PS+X:POKE I,X:NEXT 

IF PS<>5319 THEN PRINT"DATA ERROR":END 

H=INT (A/256) :POKE 56,H:POKE 55, A-256*H 

PRINT "STARTADRESSE"A: NEW 

DATA 165,43,164,44,133,34, 132,35, 160, 3,200, 177,34, 20 
8, 251,200, 152,24, 101 | 

DATA 34,160,0, 145,43, 165,35, 105, 0, 200, 145, 43, 32,51,1 
97,165, 34,105, 2,133 

DATA 45, 165,35, 105,0,133,46, 32,99, 198,76, 103, 228 
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PROFI-ASS 64 V2.0 


128: 


1350: 

140: 

150: 

168: 

176: 

172: 7080 
180: 7900 
182: AbuS 
184: E37B 
186: ASSS 
200: 7000 
218: 7900 
2720: 7902 
230: 70094 
240: 79006 
250: 72908 
260: 700A 
278: 790B 
280: 790D 
799: 708eF 
292: 7019 
294: 7811 
300: 7912 
310: 79014 
328: 7016 
330: 7918 
540: 701A 
3580: 781C 
360: 791D 
378: 791F 
469: 7922 
470: 7924 
480: 7926 
490: 7928 
590: 792A 
510: 792C 
528: 792E 
330: 7051 
u79899-70934 


2B 
2C 


22 


23 
03 


22 
FB 


22 
08 
2B 


> 
Fr 


00 


2B 
33 a5 
22 
e2 
2D 
23 
00 
2E 
63 A6 
7B ES 


SEITE 1 


UNNEW-BEFEHL 


.DPT P1,00 
.PAG 61 
ELR = $A663 
BASIC = $E37B 
BINDEN = $A533 
*= $7000 
LDA $2B 
LDY $2C 
STA $22 
SIY $23 
| LDY #3 
NULL INY 
LDA ($22),Y 
BNE NULL 
INY 
TYA 
ELC 
ADC $22 
LDY #0 


STA (%$2B),Y 
ILDA %22 +1 
‚ADC #0 


STA ($2B),Y 


LDA #22 
ADC #2 

STA %2D 
LDA #22 +1 
ADC #0 

STA %2E 
JSR ELR 
JMP BASIC 
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AUFRUF MIT SYS STARTADRESSE 


; ($C665) 
; ($E467) 
; ($0555) 


; BASICSTART IN PUFFER 
; SCHREIBEN 


;NULL-BYTE SUCHEN 


; ZEILENLAENGE 


; + BASICSTART ERGIBT KOPPEL- 
ADRESSE DER ERSTEN ZEILE 
;KOPPPELADR AN BASICSTART 
; SCHREIBEN 


;KOPPELADRESSEN NEU BERECHNEN 
;IN $22/$23 STEHT ENDADRESSE 
;5 + 2 ERGIBT BASICTENDVECTOR 


;SETZT UEBRIGE ZEIGER 
;RUECKKEHR ZUM BASIC 


5. LADEN UND SPEICHERN VOM PROGRAMM AUS 


Bei der Behandlung der Befehle SAVE und LOAD im Kapitel 2 
habe ich beschrieben, wie man Programme im Direktmodus 
abspeichert und lädt. Diese Befehle können aber auch 
innerhalb von Programmen stehen. 


Der SAVE-Befehl arbeitet innerhalb von Programmen genauso 
wie im Direktmodus. Es ist somit möglich, ein Programm sich 
selber abspeichernzulassen. Diese Möglichkeit werden Sie 
wahrscheinlich aber nur selten nutzen. Weit häufiger möchte 
man nur einen Teil eines Basic-Programms oder ein 
Maschinenprogramm abspeichern. 


Stellen Sie sich vor, Sie haben ein Programm geschrieben, 
das ab Zeile 10000 -Datazeilen generiert. Diesen 
Programmteil wollen Sie alleine abspeichern, um ihn dann an 
andere Programme anhängen zu können. Sie müssen als erstes 
feststellen, ab welcher Speicherstelle die Zeile 10000 im 
Speicher steht, da Sie ja nur ab Zeile 10000 abspeichern 
wollen. Mit den folgenden Programmzeilen lösen Sie dieses 


Problem: 


1000 S = PEEK(43) + 256 * PEEK(44) : BS =S 
1010 ZN = PEEK(S + 2) + 256 * PEEK(S + 3) 
1020 IF ZN = 10000 THEN 1050 

1030 S = PEEK(S) + 256 * PEEK(S + 1) 

1040 GOTO 1010 


Um diese Programmzeilen zu verstehen, muß ich Ihnen kurz 


erklären, wie Basic-Zeilen im Speicher stehen. 


Die ersten beiden Bytes einer Basic-Zeile bildet die 
sogenannte Koppeladresse. Sie gibt die Startadresse der 
nächsten Basic-Zeile an, zeigt also auf die nächste 
Koppeladresse. In den beiden folgenden Bytes ist die 
Zeilennummer abgespeichert. Danach kommt der Inhalt der 
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Basic-Zeile, abgeschlossen durch ein Nullbyte. Ihr 


Basic-Programm steht also folgendermaßen im Speicher 
KAL KAH ZNL ZNH Basictext 00 KAL KAH ZNL ZNH 


Hierbei bedeuten 


KAL Koppeladresse LSB 
KAH Koppeladresse MSB 
ZNL Zeilennummer LSB 
ZNH Zeilennummer MSB 


Bei unserem kleinen Programm wird in der Zeile 1000 die 
Programmstartadresse aus den Vektoren in S und BS 
eingelesen. In der Zeile 1010 wird die Zeilennummer in die 
Variable ZN übertragen. Die Abfrage in der Zeile 1020 
testet, ob die gewünschte Zeilennummer erreicht wurde. Wenn 
ja, wird in das weitere Programm verzweigt. Ist sie noch 
nicht erreicht, wird in Zeile 1030 aus der Koppeladresse die 
Startposition der nächsten Basic-Zeile in S geschrieben und 
über Zeile 1040 wieder nach 1010 gesprungen. 


Nach diesem Programm haben Sie alle Informationen, um den 
letzten Teil Ihres Programms abzuspeichern. Wichtig ist nun 
nur noch, daß Sie nach dem Speichervorgang wieder den alten 
Wert in den Basicstartvektor schreiben. Mit dem folgenden 
Programmteil können Sie die Datazeilen abspeichern. 


1050 POKE 43,5 AND 255: POKE 44,INT(S/256) :REM ZEIGER 
AUF ZEILE 10000 SETZEN 

1060 SAVE"DATAZEILEN" :REM DATAZEILEN SPEICHERN 

1070 POKE 43,BS AND 255: POKE 44,INT(BS/256) :REM ZEIGER 
ZURUECKSETZEN 


Wenn Sie Maschinenprogramme abspeichern wollen, wird das 
Ganze etwas komplizierter. Lesen Sie dazu bitte Kapitel 6. 
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5.1 OVERLAYTECHNIK 


Der LOAD-Befehl arbeitet innerhalb von Programmen etwas 
anders als im Direktmodus. Im Kapitel 2 habe ich 
geschrieben, daß nach einem LOAD die Basic-Zeiger auf das 
neue Programm eingestellt werden. Geben Sie aber die 
LOAD-Anweisung innnerhalb von Programmen, bleiben die 
Vektoren erhalten, ebenso wie alle bis dahin definierten 


Variablen. 


Daher ist es möglich, von einem Hauptprogramm aus 
verschiedene Unterprogramme aufzurufen, die alle mit den 
gleichen Variablen arbeiten. Diese Methode nennt man 


OVERLAYTECHNIK. 
Bei dieser Technik sind aber einige Dinge zu beachten: 


1. Da die Basic-Vektoren nicht verändert werden, muß das. 
aufrufende Programm mindestens so lang sein wie das 


aufgerufene. 


Direkt hinter einem Basic-Programm werden die Variablen 
abgespeichert, und der Vektor 45, 46 ist damit auch der 
Zeiger für den Beginn der Variablentabelle. Ist nun das 
nachgeladene Programm länger, werden die Variablen 
überschrieben, und der Zeiger weist in das neue Programm. 
Sobald nun eine Variablenoperation stattfindet, wird die 
Variable innerhalb des Programms gesucht, was zum 


"Absturz" des Rechners führen kann. 


Mit einem Trick ist es aber möglich, von einem kurzen 


Programm aus ein längeres aufzurufen. 


Zuerst laden Sie das längste nachzuladende Programm im 
Direktmodus ein und stellen durch Auslesen der 
Speicherstellen 45,46 seine Länge fest. Die erhaltenen 
Werte notieren Sie sich am besten. Als nächstes laden Sie 
das aufrufende Programm und setzen folgende Basic-Zeile 


an den Anfang: 
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10 POKE 45,W1: POKE 46,W2: CLR 


Die Zeilennummer ist wahlweise, sie muß nur die kleinste 
in Ihrem Programm sein. Wi und W2 stehen für die von 
Ihnen notierten Werte. 


-Durch die POKE-Befehle verlängern Sie Ihr Programm 
künstlich. Das CLR bewirkt, daß auch die anderen Zeiger 
entsprechend geändert werden. 


Sie müssen beachten, daß nach einem LOAD das Programm 
wieder von Anfang an ausgeführt wird. | 


Das ist nur dann sinnvoll und unproblematisch, wenn Sie 
Basic-Programme nachladen. Wollen Sie aber ein 
Maschinenprogramm nachladen, ändert sich das im Speicher 
befindliche Basic-Programm nicht und startet sich immer 
wieder von neuem. Wenn das nicht geschehen soll, müssen 
Sie das durch eine Sprungtabelle verhindern. Bei dem 
folgenden Programm werden am Anfang des Programms drei 
Maschinenprogramme eingeladen, ehe es zum Hauptprogramm 


übergeht. 


10 REM START 

20 IF.A = O THEN A=1: LOAD"MPR1",1,1 
30 IFA 1 THEN A=2: LOAD"MPR2",1,1 
40 IFA 2 THEN A=3: LOAD"MPR3",1,1 
50 REM HAUPTPROGRAMM 


Als letztes ist eine Besonderheit der Stringspeicherung 
zu beachten. 


Ihr Commodore Betriebssystem ist so konzipiert, daß 
möglichst wenig Speicherplatz für Strings verwendet wird. 
Jedesmal, wenn Sie einer Stringvariablen einen String 
zuweisen, wird in der Variablentabelle unter dem 
Variablennamen ein Zeiger abgelegt, der auf den 
betreffenden String zeigt. Weisen Sie einer Variablen 
durch eine INPUT - Anweisung einen String zu, wird dieser 
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in einer speziellen Tabelle am Ende des Basic-RAMs 
abgelegt. Geschieht die Zuweisung aber innerhalb des 


Programms, z.B. durch 
100 A$="STRING" 


wird der String nicht noch einmal in die Stringtabelle 
übertragen, sondern der Zeiger wird auf die Position des 


Strings innerhalb des Programms gesetzt. 


Laden Sie nun ein Programm nach, steht an der 
entsprechenden Stelle etwas ganz anderes und der Computer 
druckt bei dem Befehl PRINT A$ nur wirres Zeug aus. 
Abhilfe schaffen Sie sich dadurch, daß Sie scheinbar 
einen neuen String definieren, indem Sie den im Programm 
definierten mit einem Leerstring verknüpfen. Schreiben 


Sie also: 
100 A$="STRING": A$=A$+"" 


Dadurch bringen Sie das Betriebssystem dazu, den String in 
die Stringtabelle zu übertragen. 
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6. ABSPEICHERN VON MASCHINENPROGRAMMEN 


Wenn Sie sich etwas länger mit Ihrem Commodore beschäftigt 
haben, stehen Sie irgendwann vor dem Problem, bestimmte 
Speicherbereiche abspeichern zu wollen. Diese bestimmten 
Speicherbereiche können z.B. der Bildschirminhalt oder ein 
Maschinenprogramm sein. Leider unterstützt das Commodore 
Basic diesen Wunsch überhaupt nicht. Daß es mit einigen 


Tricks doch geht, haben Sie schon im Kapitel 5 gelesen. 


In den letzten Kapiteln habe ich geschrieben, daß der 
Rechner bei einem SAVE-Befehl immer den Bereich, der 
zwischen den Zeigern in 43, 44 und 45, 46 liegt, 
abspeichert. Was liegt da näher, als die Zeiger so zu 
ändern, daß sie auf den Start und das Ende des von Ihnen 
gewünschten Speicherbereichs zeigen. Wenn Sie aber nach der 
Speicherung noch normal’ mit Ihrem Computer arbeiten 
wollen, dürfen Sie es sich nicht so leicht machen. 


Damit der Rechner nach der Speicherung so arbeitet wie 
vorher, muß in den Vektoren wieder der alte Wert stehen. Sie 
müssen diese Werte also vorher retten’ und nachher wieder 


in die Zeiger 43-46 übertragen. 


Um die Inhalte der Zeiger zu retten, dürfen Sie sie nicht 
Variablen übergeben, da, wie schon in den letzten Kapiteln 
beschrieben, der Programmendvektor gleichzeitig der 
Variablenstartvektor ist. Sobald Sie diesen Zeiger 
verändern, findet der Computer keine Variablen mehr. Aus 
diesem Grund müssen Sie die Zeigerinhalte in Speicherstellen 
POKEn, die nicht durch den Speichervorgang oder das 


Betriebssystem verändert werden. 


Im folgenden Beispiel verwende ich die Speicherstellen 251 
bis 254. Diese Stellen werden vom Betriebssystem nicht 
benutzt. Mit diesen Zeilen schreiben Sie den 


Bildschirminhalt auf Cassette 
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10 POKE251, PEEK(43): POKE252, PEEK(44): REM START RETTEN 
20 POKE253, PEEK(45): POKE254, PEEK(46): REM ENDE RETTEN 
30 POKE43,0: POKE 44,4: REM VIDEORAMSTART ALS START 

40 POKE45,232: POKE 46,3: REM VIDEORAMENDE ALS ENDE 

50 SAVE"BILDSCHIRM",1,1 : REM VIDEORAM SPEICHERN 

60 POKEA3, PEEK(251): POKE44, PEEK(252):REM START ZURUECK 
70 POKE45, PEEK(253): POKE46, PEEK(254):REM ENDE ZURUECK 


Sie sehen, daß das Ganze recht kompliziert ist. Mit einem 
kleinen Maschinenprogramm geht es viel einfacher. Sie geben 


einfach 


SYS adr"NAME" ,GA,sadr,eadr 


mit adr : Startadresse des Maschinenprogramms 
NAME : Name des abzuspeichernden Bereichs 
GA : Geräteadresse (Cassette = 1 ) 
sadr : Startadresse des abzuspeichernden Bereichs 
eadr : Endadresse u 


ein, und der Bereich wird abgespeichert, ohne daß Sie 
irgendwelche Manipulationen mit den Vektoren vornehmen 


müssen. 


Die abgedruckten Basic-Lader speichern das kleine 
Maschinenprogramm an das Ende des Basic-RAMs und geben die 
Startadresse aus, mit welcher Sie es aufrufen können. Bevor 
Sie aber den Lader starten, speichern Sie Ihn ab, weil er 


sich automatisch löscht. 


Für Interessierte möchte ich hier einige Erklärungen zum 


Maschinenprogramm geben. 


In Zeile 310 wird eine Betriebssystemroutine aufgerufen, die 
den Namen vom Bildschirm liest und ihn in die entsprechenden 
Speicherstellen schreibt. Die Routine, die in Zeile 320 
aufgerufen wird, prüft, ob das nächste Zeichen ein Komma 
ist, und überträgt den folgenden Ausdruck in das X-Register. 
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In Zeile 330 wird die Sekundäradresse in das Y-Register und 
in Zeile 340 die logische Filenummer in den Akku geladen. 
Mit diesen Parametern wird eine Routine aufgerufen, die die 
Fileparameter setzt. Diese Routine muß vor jedem Lade- und 
Speichervorgang aufgerufen werden. 


In den Zeilen 350 - 380 wird wiederum auf ein Komma 
getestet, um dann die Startadresse einzulesen und zu 
verarbeiten. Sie wird in den Speicherstellen $14 und $15 
abgelegt. In den folgenden Zeilen werden die Inhalte von 
$14/$15 nach $FB/$FC gerettet” um dann wie davor, die 
Endadresse einzulesen. 


Die Übergabe dieser Parameter an die SAVE-Routine erfolgt 
dadurch, daß in den X- und Y-Registern die Endadressen 
absolut übergeben werden, und der Akku die Zeropage-Position 
enthält, in der die Startadresse steht. 


100 REM SAVE ADRESSE 64 

110 E=256#PEEK (56) +PEEK (55) -1:A=E-47 

120 FOR I=A TO E:READ X:POKE I,X:NEXT 

130 H=INT (A/256) :POKE 56,H:POKE 55,A-256*H 

140 PRINT"STARTADRESSE "A: NEW 

150 DATA 32,87,226,32,0,226,160,1,169,0,32,186,255,32,14 
„226,32,138,173,32,247 

160 DATA 183,166,20,164,21,134,251,132,252,32,14,226,32, 
138,173,32,247,183,169 

170 DATA 251,166,20,164,21,76,216,255 


100 REM SAVE ADRESSE VC 20 

110 E=256*PEEK (56) +PEEK (55) -1:A=E-47 

120 FOR I=A TO E:READ X:POKE I,X:NEXT 

130 H=INT (A/256) :POKE 56,H:POKE 55,A-256*H 

140 PRINT"STARTADRESSE" A: NEW 

150 DATA 32,84,226,32,253,225,160,1,169,0,32,186,255,32, 
11,226,32,138,205,32 

160 DATA 247,215,166,20,164,21,134,251,132,252,32,11,226, 
32,138,205,32,247,215 | 

170 DATA 169,251,166,20,164,21,76,216,255 
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PROFI-ASS 64 V2.0 


80: Co00 
196: C008 
192: CO09 
1902: C000 
1803: 

194: 

105: 

107: 

110: 

111: 

112: Co86 
112: C000 
114: 

117: Co00 
117: C900 
1197: 

120: E000 
120: Co08 
125: C000 
130: E257 
140: E26 
159: FFBA 
160: E28E 
170: ADBA 
180: B7’F7 
170: FFDS 
200: GaFB 
3060: C00% 
300: C900 
310: C880 
320: C9053 
330: CB906& 
549: CB908 
390: Co0oA 
368: CoD 
370: Co1® 
5380: C913 
398: co1l& 
4090: c918 
410: co1A 
420: tolc 
4530: EO1E 
440: co21 
450: C924 
440: 927 
470: C929 
480: CaZB 
490: COHZD 
UC2B8-C030 


FF 


SEITE 1 


an ER a Ta a a 


SETFNAME 
HBYTE 
SETLFS 
CHRIN 
FRMNUM 
FACINT 
SAVE 
PUFFER 


„PAG 
„OPT 


SYS ADRESSE 


WERTE IN 


nl 


&1 

P1,0 

SAVE ADRESSE 
AUFRUF MIT 


"NAME" „GA, STARTADR. „ENDADR. 
KLAMMERN GELTEN FUER 
ve 20 


$C009 

$E257 ; ($E254) 

+E200 s ($EIFD) KOMMATEST U. BYTE => X 
$FFBA 


$E2OE ; ($E20B) KOMMATEST 

$ADBA ;s ($CD8A) 

$B7F7 » ($D7F7) FAC NACH 14,815 
$FFD8 

$FB 


SETFNAME 5; FILENAME HOLEN 


HBYTE ;s GA HOHLEN 
#1 ;s SA 
#0 ; LFN 


SETLFS ;FILEPARAMETER SETZEN 
ECHRIN ;STARTADRESSE HOLEN 
FRMNUM ;UND AUSWERTEN 

FACINT 

$14 

$15 

PUFFER ;IN PUFFER RETTEN 
PUFFER+1 

CHRIN ;sENDADRESSE HOLEN 
FRMNUM ;UND AUSWERTEN 


FACINT 

#PUFFER 5;UEBERGABE STARTADR. 
$14 ;UEBERGABE ENDADR. 
$15 

SAVE 
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7. DER CASSETTENPUFFER 


In diesem Kapitel möchte ich näher auf den Cassettenpuffer 
eingehen. Dieser Puffer belegt den Speicherbereich von 828 
(Hexadezimal 033c) bis 1019 (Hexadezimal O3FB). Dieser 
Puffer hat 2 grundsätzliche Aufgaben. Zum einen wird in 
diesem Bereich der Filekopf, der sogenannte Header, 
generiert und vor jedem File, sei es ein Programm- oder 
Datenfile, abgespeichert und dient dann zur Kennzeichnung - 
desselben. Er enthält dann folgende Parameter: 


1. Filetyp, Byte O = 828 | 
2. Startadresse, Byte 1, 2 = 829, 830 
3. Endadresse, Byte 3, 4 = 831, 832 
4. Filenamen ab Byte 5 = 833 


Die restlichen Bytes sind mit Space beschrieben. 


Als zweite Funktion dient der Cassettenpuffer als 
Zwischenspeicher bei der Datensicherung. Die 
abzuspeichernden Daten werden zuerst in diesen 
Speicherbereich geschrieben und erst, wenn der ganze Puffer 
beschrieben wurde, wird er auf Band übertragen. Wenn Sie 
Daten laden, werden diese blockweise geladen und dann durch 
INPUT# oder GET# aus dem Puffer gelesen, wie auch im Kapitel 
2.4 £f£ beschrieben. 


Der Filetyp ist folgendermaßen codiert: 


Basicprogramm, relativ laden 
= Datenblock 
Maschinenprogramm, absolut laden 


Daten Header 
EOT-Block 


Bun —- 
u 


Im Header sind alle wichtigen Daten enthalten, die zur 
Kennzeichnung benötigt werden. Was liegt da näher, als mit 
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Hilfe dieser Daten, die mit Programmen und Daten bespielten. 


Cassetten, zu archivieren. 


7.1 ANLEGEN EINES CASSETTENINHALTSVERZEICHNISSES 


Das Programm am Ende von 7.1 druckt ein Inhaltsverzeichnis 
einer Cassette aus. Falls Sie einen Drucker haben, können 


Sie sich das Inhaltsverzeichnis auch ausdrucken lassen. 


PROGRAMMBESCHREIBUNG 


Die Zeilen 100 - 160 dienen zur Initialisierung. Hier werden 
die einzelnen Tabulatorstops in Tx$ und die verschiedenen 
Filetypen in das Feld TN$ eingelesen. 


Für den Fall, daß die Ausgabe auch zu einem Drucker 
geschickt werden soll, wird in Zeile 180 ein Druckerkanal 
eröffnet und in 190 - 220 die Überschrift an den Drucker 
übermittelt. In der Zeile 230 wird dann eine Datei zum 
Cassettenlesen ohne Namen eröffnet. Dadurch wird der nächste 


Header eingelesen. 


Durch PEEK werden in den Zeilen 240 - 270 Typ-Byte, Start- 
und Endadresse und Filename aus dem Puffer gelesen und 
formatiert. In den Zeilen 280 - 290 wird aus Start- und 
Endadressen die Programmlänge in KByte berechnet. 


Durch die Zeilen 300 - 320 werden die Daten auf Drucker und 


Bildschirm ausgegeben. 
In Zeile 330 wird über die Programmlängen der Zählerstand 


berechnet. Nachdem dann die Datei geschlossen wurde, springt 
das Programm wieder zum OPEN - Befehl. 


43 


FFERHRERRÄRHKKHHRRERRHÄRKF TE TH TK HF FH N TR FE THF TH TH TH THF KH IF THF KH IK HF IF TH KH FE TH IH H KH NH FH TR TH FH KH TH KH FE NH KH 
100 REM # INHALTSVERZEICHNIS*#** 
FFIR HIHHHHRHR THF HK TH IH NH KH TH KH IF HF TFT TH NH TH NH FH FH FH LH TH TH KH FH FH FH FH FE IR IF IH NH KH KH FH KH FH NR N 
118 PA=828:REM STARTADRESSE IM CASSETTENPUFFER 
26 PRINT"LDOWN2IDRUCKEN ? LJ/N]I "5D$ 
138 GET D$: IF D$=""THEN 136 
146 T1$=CHR$ (16) +"05" : T2$=CHR$ (16) +" 19": TS$=CHR$ (16) +"20" 
= TA&=CHR$ (16) +"30" 
159 TS$=CHR$ (16) +"38": TA$=CHR$ (16) #"50" : T7$=CHR$ (16) +" 63" 
: REM_TABULATORSTOPS 
169 TN$ (6) ="RELATIV": TN$ (2)="ABSOLUT" = TN$ (3) ="DATEI" 
17% IF D${>"J"THEN 230 
186 OPEN 2,4 
196 PRINT#2, T1$"LFN"T2$" ZAEHLER"T3$"TYP"T4$"K-BYTE"TS$" 
ANFANG"T&6$" ENDE"; 
200 PRINT#2,T7$" NAME" 
226 PRINT#2 
239 OPEN 1,1 
248 TY=PEEK (PA) : TY$=TN$ (TY-1) 


250 A$=" z"+RIGHT$(" "+STR$ (PEEK (PA+1) + (256*PEEK (PA 
+2))-1),6) 

260 B$=" -"+RIGHTS(" "+STR$ (PEEK (PA+3) + (256#*PEEK (PA 
+4))-1),6) 

278 C$=": ":FOR I=5 TO 26: C$=C$+CHR$ (PEEK (PA+I)) :NEXT 

286 T=VAL (RIGHT$ (B$, 6) ) -VAL{RIGHT$ (A$,6)) 

290 K$=RIGHT$(" "+STR$ (INT (T/1924*100) /100) ,6) 

3828 PRINT Z5 TY$5K$5 A$B$: PRINT C$: PRINT 

318 N=N+1:N$=RIGHTS(" "+STR$ (N},3) 


315 IF D${>"J"THEN 350 

328 FRINT#2,T1$%;N$;5 T2$5Z5 T3$5TY$5 T4$55K$;5 T5$55A$; T6$5 
B$; T7$5C# 

330 Z=INT (Z+(T/212) +4+2** (N/100)) 
:REM BANDZAEHLER BERECHNEN 

348 CLOSE 1 

350 GOTO 250 
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7.2 ANZEIGE DER GEFUNDENEN DATEIEN 


Das Auslesen des Filenamens mittels eines PEEK-Befehls kann 
auch innerhalb eines Dateiverwaltungsprogramms nützlich 
sein. Haben Sie sich noch nicht darüber geärgert, daß, wenn 
Sie von einem Programm eine bestimmte Datei einlesen wollen, 
der Computer ewige Zeit sucht, um schließlich 
"?FILE NOT FOUND" auszugeben. Der Grund dafür war 
vielleicht, daß Sie das Band etwas zu weit vorgespult 
hatten. 


Wenn der Rechner Ihnen aber sagt, welche Dateien er findet, 
können Sie leicht feststellen, ob Sie zu weit gespult haben 
oder nicht. Vorausgesetzt natürlich, daß Sie die ungefähre 


Reihenfolge der Dateien auf Band kennen. 


Die folgenden Basic-Zeilen veranlassen den Computer, jede 
Datei, die er findet, anzuzeigen. 


100 INPUT"FILENAME";F$ 

118 L=LEN(F$) 

120 FE$="" 

130 OPEN 4,1,0,FE$ | 

148 FOR I=@ TO 15: FE$=FE$+CHR$ (PEEK (B33+1) ) :NEXT 

158 PRINT:PRINT"FOUND ";FE$ | 

168 IF LEFT$(FE$,L)<>LEFT$(F$,L)THEN CLOSE 4:G0SUB 290 
:60T0 128 | 

178 PRINT:PRINT"FILE WIRD GELADEN" 

208 POKE 198,8:WAIT 198, 1:RETURN 


Durch den OPEN - Befehl ohne Namen in Zeile 130, veranlassen 
Sie den Rechner, jeden Datenkopf in den Puffer zu laden. 


In Zeile 140 - 160 wird dann der Filename mittels PEEK aus 
dem Puffer in FE$ übertragen und in Zeile 170 angezeigt. 
Ergibt der Vergleich von FE$ mit dem gewünschten Filenamen 
in Zeile 180 keine Übereinstimmung, wird die Suche 
fortgesetzt. Anderenfalls wird die Datei geladen. 
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7.3 SELBSTSTARTENDE PROGRAMME UND PROGRAMMSCHUTZ 


Bis jetzt haben wir nur Daten aus dem Cassettenpuffer 
ausgelesen. Dieser Puffer eignet sich aber auch 
vortrefflich, um Daten oder Programme aufzunehmen. So ist es 
möglich, durch diesen Puffer noch weitere Daten oder ein 


Programm mit einem anderen Programm abzuspeichern. 


Der Puffer belegt den Speicherbereich von 828 bis 1019. Er 


ist also 191 Zeichen lang. Zur Informationsübergabe werden, 


wenn er als Header abgespeichert wird, maximal 
16+2 +2 +1 (Filename, Startadresse, Endadresse, 
Typebyte) = 21 Byte benötigt. Es bleiben also noch 170 Byte 
übrig, ausreichend Platz, um kleine Maschinenprogramme 
unterzubringen. 


Als Beispiel beschreibe ich Ihnen hier ein kleines Programm, 
das ein Vorprogramm erzeugt, das Ihren Wünschen entsprechend 


z.B. das nächste Programm automatisch lädt und startet. 


Solche Vorprogramme können auch dazu dienen, Ihre Programme 
zu schützen. Ebenfalls kann mit solch einem Vorprogramm 
erreicht werden, daß vor dem Laden des Hauptprogramms der 
Basic-RAM verschoben wird, um vor das Basic-Programm noch 
eine oder mehrere Grafikseiten abzulegen. Dem Programmierer 
sind hier keine Grenzen gesetzt. Doch nun zu unserem 


Beispiel. 


Ich habe dieses Beispiel gewählt, da es einerseits die 
allgemeine Technik zeigt, und andererseits auch von einem 


"Nur-Anwender" recht allgemein genutzt werden kann. 


Hier ist die Programmbeschreibung: 


In Zeile 10 wird der Filename abgefragt, unter welchem das 
Hauptprogramm abgespeichert werden soll. In Zeile 20 und 30 
wird der Filename durch Auffüllen mit "SPACE" auf eine Länge 
von 16 Zeichen gebracht. Durch die Zeilen 40 bis 70 wird an 
den Filenamen ein Maschinenprogramm angehängt, welches in 
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den Datazeilen ab Zeile 180 steht. 


Da die Programme für VC20 und C-64 bis auf die Datas 
identisch sind, sind von dem Lader-Programm für den C-64 nur 


die Datazeilen ausgedruckt. 


Über die Zeilen 80 und 90 haben Sie nun die Möglichkeit, 
Basic-Befehle einzugeben, die später nach dem Laden des 


Vorprogramms automatisch ausgeführt werden. 


Wenn Sie also wünschen, daß ein folgendes Basic-Programm 
geladen und gestartet werden soll, geben Sie LOAD RETURN RUN 
RETURN RETURN in Kurzbefehlen ein: 


Ltr tt 


Aus programmtechnischen Gründen, die ich später beschreiben 
werde, ist es bei diesem Programm nicht möglich, mehr als 10 
Zeichen zu übergeben. Diese Zeichen werden dann an den 
Filenamen hinter das Maschinenprogramm angehängt (Zeile 
100 - 150). 


In Zeile 160 wird der Zeiger zu einer Systemroutine, der 
Eingabe-Warteschleife, auf das Maschinenprogramm im 


Cassettenpuffer umgesetzt. 


Die Zeile 170 speichert dann mt Hilfe des im letzten Kapitel 
beschriebenen Maschinenprogrammns, diesen Vektor ab. Sie 
müssen also hinter den SYS-Befehl die Startadresse 
schreiben, die Ihr SAVE ADRESS-Programm hat. 


Durch diesen Speicherbefehl wird der Filename mit 
Maschinenprogramm und Basic-Befehlen in den Puffer und auf 
Band geschrieben. Nach dem Programmende springt der Computer 
über den Vektor in 770, 771 normalerweise in die 
Eingabe-Warteschleife. Da dieser aber in Zeile 160 auf unser 
Maschinenprogramm im Cassettenpuffer gesetzt wurde, springt 
er dorthin und arbeitet es ab. Da wir im Ausgabestring dem 
Rechner den Befehl LOAD gegeben haben, versucht er das 
nächste Programm zu laden. Durch Drücken der 
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RUN/STOP - Taste kann man diesen Vorgang unterbrechen, um 
das Hauptprogramm hinter das Ladeprogramm zu speichern, das 


vom Vorprogramm geladen werden soll. 


Wenn Sie ein Programm hinter den Lader geschrieben haben, 
spulen Sie das Band zurück zum Start des Ladeprogramms und 


geben LOAD und RETURN ein. 


Ihr Computer findet nun das Ladeprogramm, lädt dieses, lädt 


sofort danach das folgende Programm ein und startet es. 


Für Interessierte und Fortgeschrittene möchte ich nun diese 


Technik und das Programm genau erklären. 
Die zwei Grundlagen dieser Technik sind folgende: 


1. Übergabe eines Maschinenprogramnms in den 
Cassettenpuffer durch Anhängen an den Filenamen, 


2. Änderung von Vektoren, Z.B. dem zur Eingabeschleife 
auf ein eigenes Maschinenprogramm und Speicherung 
eben dieser geänderten Vektoren. Im eigenen 
Maschinenprogramm muß dann vor dem Sprung in das 
geladene Programm der in das eigene 
Maschinenprogramm zeigende Vektor wieder auf den 
alten Wert gebracht werden. 


3. Als Maschinenprogramme abgespeicherte Speicher- 
bereiche werden immer an die Stelle geladen, von wo 


sie abgespeichert wurden. 


Ihr Rechner besitzt in den Speicherstellen 768 = 819 eine 
Reihe von Vektoren, über welche er in bestimmte 
Unterprogramme springt. Durch Veränderung dieser Zeiger 
können Sie ein eigenes Programm dazwischenschalten. 


Die Eingabe-Warteschleife ist das Unterprogramm, das Ihren 


Commodore geduldig auf irgendeine Eingabe warten läßt. 
Machen Sie eine Eingabe, wertet und führt er sie aus, um 
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anschließend wieder in diese Schleife zurückzukehren. 


Durch unser Programm wird nun ein Vorprogramm erzeugt, das 
den Vektor zur Eingabe-Warteschleife mit der Startadresse 
eines eigenen Programms überschreibt, das mit dem Filenamen 


in den Speicher geschrieben wurde. 


Wenn Sie selber weitere Experimente machen wollen, können 
Sie natürlich auch Ihr Maschinenprogramm z.B. in den Bereich 
$2C0o - $2FF (704 - 766) legen und als Vorprogramm den 
Bereich $2CO - 303 abspeichern. 


Doch sehen wir uns nun das Maschinenprogramm an. In den 
Zeilen 200 - 230 wird der Vektor zur Eingabe-Warteschleife 
wiederhergestellt. Ab der Speicherstelle $036C sind Ihre 
Eingaben abgespeichert. Diese werden. in den Zeilen 250 bis 
290 in den Tastaturpuffer übertragen. Durch den Sprung am 
Ende des Programms in die Eingabe-Warteschleife wird der 
Rechner veranlaßt, die Befehle, die im Tastaturpuffer 


stehen, auszuführen. 


Das hier dargestellte Beispiel ist zwar recht einfach, hat 
aber den Nachteil, daß Sie nur wenige Befehle aufgrund des 
begrenzten Tastaturpuffers übergeben können. Sie können 
jetzt aber, wenn Sie das Prinzip verstanden haben, leicht 
dieses Programm auf Ihre eigenen Bedürfnisse hin abänderen, 
indem Sie im Maschinenprogramm ab Zeile 240 Ihre eigene 
Routine schreiben, und diese mit einem Sprung in die 


Eingabe - Warteschleife abschließen. 


Ihnen ist bestimmt schon klar geworden, daß man diese 
Technik auch sehr gut zum Programm-Schutz verwenden kann, da 
sich das Programm ja selbst startet. Wenn Sie zusätzlich 
noch einen Programmabbruch durch die RUN/STOP - Taste 
unterbinden und das Hauptprogramm so abändern, daß es nur in 
Verbindung mit dem Lader lauffähig ist, hat ein fremder 
Anwender keine Möglichkeit, Einsicht in Ihr Programm zu 


nehmen. 


Der ganze Schutz wäre aber nutzlos, wenn ich hier eine 
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genaue Anleitung geben würde. Ich hoffe aber, daß Sie nach 
meinen Ausführungen und mit etwas Maschinenpro- 
grammierkenntnis selbst in der Lage sind, eigene 
Autostartroutinen zu entwickeln. 


PROFI-ASS 64 V2.0 SEITE 1 
110: 0351 .DPT P1,D 
120: 8351 . *= 505351 


158: 8351 
1380: 0351 


140: ;LADER PROGRAMM 

1590: 0351 

1590: 8351 

168: A48>3 VECTOR = A483 ı ($C485) VECTOR 
165: H IN DIE EINSABESCHLEIFE 
1798: 8906 PANZ = 5065 

180: 0277 PUFFER = $277 ;s TASTATURPUFFER 
185: B36C TABEL = $3564C ı TABELLE DER BASIC-BEFEHLE 
198: 0351 

190: 8351 

200: 8351 AI 85 LDA #<VECTOR ; SETZEN DES ALTEN 
210: 0355 8D 02 05 STA 3902 ;s VECTORS 

Zr0: 8356 AF AA LDA #>VECTOR 

230: 2358 8D 853 95 STA 3095 

234: 3 

2353: 35 WERTE AUS TABELLE 

237: ;IN DEN TASTATURPUFFER 

238: 3 UEBERTRAGEN 

239: 3 

240: 835B AE &4C 03 LDX TABEL ; ANZAHLDER ZEICHEN 
259: 835E 86 Ch STX PANZ 

Zö60: 0340 BD &C 853 LOOP LDA TABEL,X 

270: 0363 ID 77 02 STA PFUFFER,X 

280: 03566 CA DEX 

298: 0367 D® F7 BNE LODOP 

294: 3 

295: ;IN DIE EINGABE-WARTESCHLEIFE 

297: 3 ZURUECKSPRINGEN 

299: 3 

300: 03697 4C 83 A4 JMP VECTOR 

U0O351-90355C 
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KERFHRERRRERIHHNHKHTR TH HR HN TH HT HH HH HH HH HH TH TH NR FR IH HR HH HH HH ER HN FH 


3 


REM LADER FUER VC-20 


KERRRHRERRERERTHRRE TREE TRETEN TREE RENTEN EHER HER HH EHRE 


18 
20 
30 
40 
s3o 
1=1 7] 
78 
80 
90 
95 
100 
118 
120 
130 
1408 


150 
168 
170 
180 


190 


INPUT"FILENAME "5F% 
SP$=" = 
F$=LEFT${F$+SP$,16) :5=-8353 
FOR I=8 TO 26 

=: READF 

F$=F$+CHR$ (F) 

NEXT 
PRINT"AUSGABESTRING MAX. 18 ZEICHEN " 
PRINT"T = RETURN, AM ENDE 2 MAL" 
INPUT AS 
LA=LEN (A$) =: IF LA>1@ THEN 98 
F$=F$+CHR$ (LA) 
FOR I=1 TO LA 
W$=MID$(A$,I,1):1IF WE="T"THEN WE=CHR#$ (15) 


F$=F$+W$ 
NEXT 

POKE 776,81:POKE 771,3 

SYS 24528F%,1,768,772 

DATA 169,131,141,2,3,169,196,141,3,3,174,108,3,134,1 

98, 189, 188,3, 157,119 

DATA 2,202, 208,247,76,196,131 


KRRRRRERRHEHRHHR TFT FT TR FE KH FR FE TR ER RER FH FH FH FH TH FH FH FH HE FH TR FH FE HR HH HH HR HH HN 


3 REM LADER FUER C-654 


KRRRERRERRKRRRTRHRHHN KT TH TR TH TH THE N N TH FH FH HH FT HH N HH FH TH HE HH TH TH FH FH HER FR FR RR HR 


186 DATA 169,131,141,2,3,169,164,141,3,3,174,108,3,134,1 


98,1897,108,3,157,119 


19@ DATA 2,202,208,247,76,131,164 
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8. SPEICHERFORMAT DER CASSETTENSPEICHERUNG. 


Um Daten oder Programme auf Band aufzuzeichnen, werden 


einzelne Bytes und Bits als Pulse aufgezeichnet. 


Zur Codierung sind drei verschiedene Zeiten definiert: 


K = kurz (176 Microsekunden) 


= 
il 


mittel (256 Microsekunden) 
L = lang .(336 Microsekunden) 


Aus diesen Pulsen werden drei verschiedene Kombinationen 
gebildet, die die folgende Bedeutung haben: 


LLMM = Byte, diese Kombination geht jedem Byte 
vorraus 

MMKK = Bit gesetzt = 1 

KKMM = Bit nicht gesetzt = O 


Der Wert 65 wird also wie folgt auf Band aufgezeichnet: 


LLMM| MMKK | KKMM| KKMM| KKMM | KKMM| KRMM | MMKK| KKMM | MMKK 


PARITY ODD 


Dies ergibt eine Zeitspanne von 8.96 ms für ein Zeichen. 


Beim Lesevorgang zählt ein Zähler von einen bestimmten Wert 
solange abwärts, wie ein Signal an der Leseleitung des 
Computers liegt. An dem erreichten Werten erkennt dann der 
Rechner, ob es sich um ein gesetztes Bit, ein nicht 
gesetztes Bit oder Bytemarke handelt. 


Damit der Zähler aber immer zur richtigen Zeit gestartet 
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wird, ist eine genaue Synchronisierung zwischen Band und 
zähler notwendig. Aus diesem Grunde geht jedem Block eine 


Synchronisation und ein Countdown voraus. 
Ein Block ist folgendermaßen aufgebaut: 


1. Synchronisationsbytes und Count Down 
Durch diesen Teil werden die Lesebausteine auf das 
Band synchronisiert. Weiterhin enthält die 
Synchronisation auch die Informationen, um was für 


einen Block es sich handelt. 
2. Daten 


3. Prüfsummenbyte 

Während des Abspeicherns und Ladens bildet der 
Rechner aus allen Bytes eine EXOR-Prüfsumme, indem 
er den letzten Wert mit dem nächsten durch eine 
logische "Exclusive-Oder" Funktion verknüpft und 
abspeichert. Wenn Lesefehler auftreten, stimmt 
diese Prüfsumme nicht mit der abgespeicherten 
überein. 


4. Wiederholung der Daten 
Diese Wiederholung wird beim Lesevorgang mit den 
schon eingelesenen Bytes verglichen, um eventuelle 
Lesefehler festzustellen. 


5. Prüfsummenbyte (wie 3) 


6. Blockendmarkierung 
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Programmfiles 


Header 


Programm 


evtl. EOT-Block 
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Die kompletten Files werden wie folgt abgespeichert: 


Datenfiles 
Header 
Datenblock 
evtl. weitere 


Datenblöcke 


evtl. EOT-Block 


9. APPEND VON BASICPROGRAMMEN 


Sie haben sich bestimmt schon darüber geärgert, daß das 
Commodore Basic 2.0 keine Befehle zur Verfügung stellt, um 


mehrere Programme miteinander im Speicher zu verknüpfen. 


Wieder einmal kommen uns die Basic-Zeiger 43, 44 / 45, 46 zu 
Hilfe. Sie "verbiegen" den Basic-RAM-Startzeiger auf das 
Ende des im Speicher befindlichen Programms und laden das 
anzuhängende Programm nach. Anschließend muß der Zeiger 43, 


44 wieder auf den alten Wert gebracht werden. 
Im einzelnen müssen Sie wie folgt vorgehen: 

1. Laden Sie das erste Programm ein. Die Zeilennummern 
müssen alle kleiner sein, als die des anzuhängenden 
Programms. Sind sie es nicht, arbeitet das 
zusammengefügte Programm nicht so, wie es eigentlich 
sollte. 

2. Stellen Sie durch 


PRINT PEEK(43),PEEK(44) 


die Basic-Startadresse fest und notieren Sie sie am 
besten. 


3. Geben Sie nun 


POKE43, (PEEK(45)+256*PEEK(46) -2)AND255 
POKE44, (PEEK(45)+256*PEEK(46)-2) /256 


ein. 
Da am Ende eines Basicprogramms immer zwei Null-Bytes 
zur Endmarkierung stehen, müssen Sie den Endvektor um 


zwei Bytes vermindern (Siehe auch Kapitel 2.1). Nun 
haben Sie scheinbar kein Programm mehr im Speicher. 
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Dies können Sie überprüfen, wenn Sie LIST geben. 


4. Laden Sie nun das zweite Programm ein. 
Wenn Sie jetzt LIST geben, erscheint nur das zweite 


Programm. 


5. Schreiben Sie nun die alten Werte wieder in die 
Speicherstellen 43, 44. 


Durch diese Prozedur haben Sie nun zwei Programme aneinander 


gefügt. 


Eleganter geht es natürlich mit einem Maschinenprogramm. Das 
folgende kleine Programm erkennt durch ein ( @), dem 
Klammeraffen, als erstes Zeichen im Filenamen, daß das zu 
ladene Programm an das im Speicher befindliche angehängt 


werden soll. 


PROGRAMMBESCHRE IBUNG 


Durch die Initialisierung wird der Ladevektor auf dieses 
Programm verschoben. Dadurch wird bei jeder Ladeoperation zu 


diesem Programm verzweigt. 


In diesem Programm wird dann das erste Zeichen des 
Filenamens auf ( @) getestet. Findet das Programm dieses 
Zeichen nicht, springt es in die alte Routine. Wird dieses 
Zeichen gefunden, wird in den Ladestartadressenvektor 
$c3/$C4A der Programmendvektor minus 2 übertragen und das 
Zeichen ( @) im Filenamen gelöscht. Danach springt das 


Programm wieder in die alte Laderoutine. 


56 


FROFI-ASS 64 V2.08 


C8089 


25: 

30: C200 
32: C000 
32: CO00 
33: 

34: C090 
34: C0080 
35: 

36: C900 
36: Coa0 
40: 0330 
50: FA4AS5 
60: G0BEB 
70: G@B7 
80: GaC5 
90: @02D 
92: C000 
32: CO 
95: C000 
975: C000 
953: 

96: 

97: C200 
97: C9008 
100: C000 
119: Ca92 
120: C994 
130: C987 
140: TOoA 
142: COOB 
142: CO0OB 
144: 

146: CO8B 
146: CO0B 
1560: CBOB 
160: LOOC 
170: COBdE 
189: C01® 
190: Co12 
195: C014 
200: C915 
218: C917 
220: C91? 
259: Co1B 
240: CO1D 
250: EOlF 
260: co21 
270: C022 
280: c924 
290: C926 
308: c927 
1C998--Ca2A 


380 03 
31 05 


08 
BB 
40 
12 


2D 
92 
E53 
2E 
00 
c4 


BB 
B7 


AS F4 


SEITE 1 

*= 0000 

„OPT P1,0 
Senat MERGE KERRERRERRE 


;WERT IN KLAMMER GILT FUER 


3 VE 20 

VECTOR -= $3350 ; LADEVEKTOR 

LADEN = $FA4A5 ; ($F549) LADEROUTINE 
FILEADR = $BB ;ZEIGER ZUM FILENAMEN 
FILELNG = $B7 ;FILENAMENLAENGE 
STARTADR = $C3 ; ZEIGER AUF PRG. START 
PROGEND = $2D ;ZEIGER AUF PRG. ENDE 


; INITIALISIERUNG DES 
D PROGRAMMS 


INIT LDA #<START 
LDX #>START 
STA VECTOR 
STX VECTOR+1 
RTS 


;s HAUPTPROGRAMM 


START PHA 


LDX #0 

LDA (FILEADR,X) 

EMPUO#"e@" ‚ERSTES ZEICHEN ’@’ 

BNE ENDE ;NEIN => NORMAL LADEN 
SEC 

LDA PROGEND 

SBC #2 ;ZEIGER UM 2 ERNIEDRIGEN 


STA STARTADR ;IN LADESTARTADR. 
LDA PROGEND+1 
SBC #0 
STA STARTADR+1 
CLC 
INC FILEADR ; ”’@” LOESCHEN 
DEC FILELNG 
ENDE PLA 
JMP LADEN 
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EERKEKNHKRHIRIN NN INH NINE NH HH HH HEN IN IN HIHI HI TH HN HIHI HH RR 
18 REM MERGE C64 | 
BBHRSHRRRRSISIBRIBSIRISIIRINRIISISISIHHIHIRIISIISSRISISISIBIHIHIHISISISIHIRIIIRIEISRRENSSHEN 
28 E=256#PEEK (56) +PEEK (55) -1:A=E-41 
38 FOR I=A TO E:READ X:POKE I,X:NEXT 
48 READ X,Y,Z:X=A+X: Y=A+Yı: Z=A+Z:H=INT (2/256) 
45 POKE X, Z-2564*H:POKE Y,H 
46 POKE E-1,PEEK(816):POKE E,PEEK (817) 
58 H=INT (A/256) :POKE 56,H:POKE 55,A-256*H 
&5 SYS A:NEW 
32006 DATA 169, 224,162,127,141,48,3,142,49,3, 96, 72,162,0,1 
61,187,201,64, 208,18 
32001 DATA 56,165,45,233, 2,133, 195, 165,46, 233,0, 133,196, 24, 
230, 187,198, 183,104 
32002 DATA 76,165, 244,1,3,11 


RHRRRHHHIHIRHHIRIIHIRIHIRIHHIRIHIHIHIHIHHIHIIHIHIRIHHHIHIIHHHIIHE EHEN 
10 REM MERGE VC20 
EFFRERFEREEERERERERKFERERRRE RR EHEN FF TR FF FR TH TR HR KT TR ER FR FR IR HE 
20 E=256#PEEK (56) +PEEK (55) -1:A=E-41 | 
30 FOR I=A TO E:READ X:POKE I,X:NEXT 
40 READ X,Y,Z:X=AtX: Y=A+Y: Z=AtZ:H=INT (Z/256) 
45 POKE X,Z-256*H:POKE Y,H 
46 POKE E-1,PEEK (816) :POKE E,PEEK (817) 
50 H=INT (A/256) :POKE 56,H:POKE 55,A-256#H 
65 SYS ArNEW 
100 DATA 169,224,162,127,141,48,3,142,49,3,96,72,162,0,1 
61,187,201,64,208,18 
110 DATA 56,165,45,233,2,133,195,165,46,233,0,133,196,24, 
230,187,198,183,104 
120 DATA 76,73,245,1,3,11 
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10. STEUERUNG DER DATASSETTE PER PROGRAMM 


Bis jetzt habe ich nur über den Lade- und Speichervorgang 
mit Ihrer Datassette geschrieben. Dabei haben wir gesehen, 
daß das Band automatisch gestartet und gestoppt wurde. Der 
Computer besitzt also die Möglichkeit, den Motor zu steuern. 
Unter dem Motto, "was der Computer kann, kann ich schon 
lange", werde ich Ihnen jetzt beschreiben, wie Sie diese 


Steuerungsmöglichkeit in Ihrem Programm nutzen können. 


Mit folgenden Speicherstellen können Sie den Motor steuern 


und abfragen, ob eine Taste am Recorder gedrückt wurde: 


Funktion 


AND 223 


gedrückt 


Auf eine Taste am Recorder warten: 


VC 20 C-64 
WAIT 37151,64,64 ‘ WAIT 1,16,16 


Als Anwendungsbeispiel, wie Sie die Steuerungsmöglichkeiten 


nutzen können, folgt ein Programm, das Ihnen das Suchen 
eines Programms, das unter vielen auf einer Cassette 
abgespeichert ist, abnimmt. Es erstellt einen Katalog aller 
auf Ihrer Cassette gespeicherten Programme und findet ein 


bestimmtes Programm selbständig. 
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Das Programm arbeitet nach folgendem Prinzip: 


Nachdem Sie ein oder mehrere Programme hinter dieses 
Beispielprogramm auf Cassette abgespeichert haben, stellt es 
mit Ihrer Hilfe und der Variable TI die Zeit fest, die der 
Cassettenrecorder benötigt, um vom Ende des 
Katalogprogrammes bis zum zu katalogisierenden Programm 
vorzuspulen. Dieser Zeitwert wird mit dem Filenamen des 


Programms in Datazeilen abgespeichert. 


Soll später ein bestimmtes Programm gesucht werden, wird der 
Cassettenmotor beim Vorspulen solange angelassen, bis der 
aktuelle Zeitwert mit dem abgespeicherten übereinstimmt. 
Nach Drücken der PLAY-Taste wird dann das gewünschte File 


geladen. 


So bedienen Sie das Programm: 


Dieses Programm wird am Anfang der Cassette abgespeichert. 
Mit einem Abstand von ca. 10 Sekunden können Sie dahinter 
wie gewohnt die anderen Programme abspeichern. Sollen die 
Programme in den Katalog aufgenommen werden, notieren Sie 
sich die Startzählernummern und Filenamen der einzelnen 
Programme. Anschließend spulen Sie die Cassette an den Start 
zurück und laden das Katalogprogramm. Nach Starten des 


Programms wählen Sie den Punkt Neueingabe. 


Zuerst werden Sie gebeten, die entsprechenden Filenamen in 
der richtigen Reihenfolge einzugeben. Sie werden dann vom 
Programm aufgefordert, den schnellen Vorlauf am Recorder 
einzustellen. Nun können Sie den Recorder durch Drücken der 
SPACE - Taste starten und bei den notierten Zählerständen 
genauso stoppen, wieder starten und beim nächsten Filestart 
stoppen, bis Sie so allen eingegebenen Programmen einen 
Zeitwert zugeordnet haben. Als letztes speichern Sie das 


Katalogprogramm wieder am Cassettenanfang ab. 


Nun können Sie komfortabel ein im Katalog gespeichertes 


Programm nach der Angabe "LADEN" aus einem Bildschirmmenue 
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wählen. Bei gedrückter FEWD spult der Rechner bis zum 
gewünschten Programm. Nach Drücken der PLAY- und 
SPACE- Taste wird das Programm geladen. 


PROGRAMMBESCHREIBUNG 


In den Zeilen 120 bis 170 sind die Unterprogramme zum 
Starten und Stoppen des Motors. Soll das Programm auf einem 
vc 20 laufen, müssen die REM-Anweisungen in den Zeilen 130 
und 160 gestrichen werden. Weiterhin müssen Sie in den 
Zeilen 120 und 150 hinter POKE 192,0: ein REM einfügen. 


In den Zeilen 180 bis 340 wird das Programm initialisiert 
und das Menue auf den Bildschirm geschrieben. Bei der 
Initialisierung werden die Namens- und Zeitfelder 
dimensioniert und die Repeat-Funktion für alle Tasten 
eingeschaltet. Mit Hilfe der Betriebssystem-Routine SCREEN 
(65517) wird der _Computertyp festgestellt und 
dementsprechend der Start vom Video- und Farbram gesetzt. 
Zuletzt werden die Variablen zur Motorsteuerung entsprechend 
dem Computer belegt (Zeilen 240 und 260). Aufgrund der 
Eingabe wird zur "Neueingabe" oder zum "Laden" verzweigt. 


In den Zeilen 350 bis 660 befindet sich der Block 
"Neueingabe". In der Zeile 390 wird die Anzahl der schon 
eingegebenen Files über READ aus den Datazeilen eingelesen. 
In den Zeilen 400 - 420 werden die neuen Filenamen 


eingelesen und im Feld N$(n) abgespeichert. 


In den Zeilen 530 bis 580 wird die Spulzeit zwischen den 
Startpunkten der einzelnen Programmen festgestellt und, den 
eingegebenen Filenamen entsprechend zugeordnet, im Feld 
ZS(n) gespeichert. Vorher wird in der Zeile 580 ein Offset 
von 10 abgezogen, um die Auslaufzeit des Motors 
auszugleichen. Aus gleichem Grunde wird bei der Summation 
der einzelnen Differenzzeiten der Zeitwert 10 addiert. 
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Um Fehlbedienungen zu vermeiden wird in Zeile 420 getestet, 
ob eine Taste am Recorder gedrückt ist und der Anwender ggf. 


gebeten die STOP-Taste zu betätigen. 


In den Zeilen 600 - 660 werden Filenamen und Zeiten in 
Datazeilen geschrieben und das Programm beendet. 


In Zeile 670 beginnt der Programmpunkt "Laden". Die 
Datenanzahl und die Filedaten werden eingelesen und in den 
Zeilen 720 - 820 werden die Files, je 8 Stück pro Seite, auf 
dem Bildschirm mit einem (>), das über die Zeilen 770 - 810 
gesteuert wird, ausgedruckt. Ist die Abfrage nach der Taste 
F7 in Zeile 790 positiv, wird nach Zeile 830 zur Such- und 


Laderoutine verzweigt. 


Nach dem Test, ob eine Taste am Recorder gedrückt ist (840) 
wird in der Zeile 900 wird mit dem WAIT - Befehl auf das 
Drücken der F.FWD-Taste am Recorder gewartet und dann, 
entsprechend der abgespeicherten Zeit der Cassettenmotor 
angelassen (Zeile 920 - 940). 


In den Zeilen 950 - 1010 wird das gewünschte Programm 
geladen. Würde das Programm vom Programmodus her geladen, 
könnten nur Programme geladen werden, die kleiner als das. 
Katalogprogramm sind. Um das zu vermeiden, wird der LOAD - 
Befehl, bzw. der FastTape LOAD-Befehl L auf den Bildschirm 
und RETURN in den Tastaturpuffer geschrieben. Somit wird das 
Programm aus dem Direktmodus geladen und die Basic-Vektoren 
entsprechend dem zu ladenen Programm gesetzt. 
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10 GOTO 19% 


ZOO KERHERRKERKEHKRKRKKKHKR HH TR HH N NH TR HH RR NR 


350 * * 

40 %* KATALOG * 

50 + * 

60 * FUER CASSETTE * 

70 * * 

BO KERRRRRERKRERHNNN NENNEN HH HH RR HH NN 

98 :REM 

RRRRHRHHRRHHHHHHHIISHRSIHHIAISHISIIHIRSHROHIRHHHHHHISHHHIHISIHHEN NEE 

180 REM WARTESCHLEIFE 


KERKERERKRRN TR R TREFF RK NR FE N TR ER REH TFERFHFIHFFF H HH H TF FER H H H FH TH HH NH 
118 POKE 198,0:WAIT 198,1:GET A$:RETURN | 
120 POKE 192,0:POKE 1,PEEK(1)AND 223:REM MOTOR _AN C-64 
130 :REM_POKE 37148,252 :REM MOTOR AN VC20 
140 RETURN 
150 POKE 192,1:POKE 1,PEEK(1)OR 32:REM MOTOR AUS C-64 
160 :REM_POKE 37148,8 :REM MOTOR AUS VC2® 


178 RETURN 
EERRHRRTKRRITN INT HN IT HH NIIT NH HR HH 
188 REM " . INITIALISIERUNG | 


ERDE SORREDEUTERTEREOREUDSEDEDESUE TEEN. 

198 HDs=" x «KATALOG * «" 

209 SYS 65517: SP=PEEK (781) : ZE=PEEK (782) 
:REM BILDSCHIRMDATEN HOLEN 

210 BS=1024:BF=55296:FW=1:IF SP>25 THEN 260 

220 BS=4* (PEEK (36866) AND 128) +64* (PEEK (36869) AND 120) 

230 BF=37888+4* (PEEK (368464) AND 128) 

249 WZ=37151:WW=44:REM VC20 WERTE "WARTEN AUF RECORDE 
RTASTE 

250 FW=6:60T0 270 

268 WZ=1:WW=16:REM C-64 WERTE "WARTEN AUF RECORDERTAS 
TE 

270 DIM N$(50),25(5®):REM_ NAME UND STARTPOSITION 

280 Pi=3#+5P+1:P2=2x5P | 

290 POKE 650, 128:REM TASTENWIEDERHOLUNG | 

300 PRINT"LCLEARI"3:PRINT TAB(SP/2-11)HD$:PRINT"LDOWN7I" 

318 PRINT TAB(SP/2-6) "LRVSINLRVOFF JEUEINGABE" : PRINT 
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320 
3350 


>40 


FRINT TAB{SF/2-6) "ERVSILIRVOFFIADEN" 
GOSUB 110:IF A$="L"THEN 680 
IF A$<{F>"N"THEN 330 


KRERHHHKRERERKERIRHHK HIN THR HEH HH TH H FH NH NH HN FH FH TH HER TH FH TH N FH TH KH HN IH FF HH KH TH HR 


. 330 


REM ####*#%*%* NEUEINGÄBE KHK 


FHHHEHERFREREERKHHHRHRH FH TR TH N TR TH TH TH TH THE N TH EHI HN HH TH NH HH TH HH NH HH HH FH FH TH TH FR HR RR 


BT=17) 
376 


370 


PRINT"LCLEAR,DOWNZIDIE EINGABE DER FILES ":PRINT 
PRINT"MUSS SUKKSESSIV ERFOL"5:IF SP<48 THEN PRINT 
: PRINT 

FRINT"GEN. ee = ENDE" 

RESTORE:READ A: ZA=A 

INPUT" CLDOWNIFILENAMEN" 5 NS 

IF N${>"@@E"THEN N$ (A) =N$:A=A+1:6G0TD 490 

ZE=A: A=ZA: IF (PEEK (WZ) AND WW) =WW THEN 450 
PRINT"ICLEARIDRUECKEN SIE DIE" 

: PRINT" L[LDOWN, RVSISTOPLRVOFF , SPACEITASTE" 

PRINT" [DOWNIJAM RECORDER":WAIT WZ, WW, 255-WW 
FRINT"L[CLEARIDRUEKEN SIE DIE ";:1IF 5SP<40 THEN PRINT 
PRINT 

PRINT"ERVSIF.FWDERVOFF , SPACEITASTE!" 
PRINT:PRINT"STARTEN SIE DEN RECOR-"5 

:IF SP<48 THEN FRINT:PRINT:PRINT" "5 
PFRINT"ELEFTIDER DURCH DRUECKEN" 

PRINT:PRINT"EINER TASTE UND ";:1IF SP<48 THEN PRINT 
:PRINT 

PRINT"STOFPEN SIE IHN AM " 


. PRINT:PRINT"START DES GEWUENSCH-"3 


:IF SP<4@ THEN PRINT: PRINT:PRINT" "5; | 
PRINT"ELEFTITEN FILES AUF GLEICHE" :PRINT"WEISE. " 
WAIT WZ,WW, WW: GOSUB 159:DI=® 

GOSUB 118:G605UB 120:R=TI:REM CC AN, ZEIT MERKEN 
PRINT"E[CLEAR, DOWNSISTOPPEN BEI START:" 

PRINT" LDOWNI"N$ (A) 

GOSUB 110:605UB 150: DI=TI-R+DI 

:REM CC AUS, ZEITDIFFERENZ BERECHNEN 
ZSt(A)=DI-18:DI=DI+18:A=A+1 

IF AXZE THEN 548: REM LETZTER FILENAME 7 


KERRRHERRRRRRRRRRR HH HERR HIRTEN TRENNT 


600 


REM # ABSPEICHERN IN DATA ZEILEN *#* 


FFHRKRHERRRRERTRERERHHTRFKE RIEF R RK N FH FR HH TH TR EHRT HH RR REF RR HR EN H 
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5618 
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FRINT"ICLEAR, DOWN3JI2088DATA"A 

:REM ANZAHL IN DATAZEILE 

FOR I=ZA TO ZE-1:PRINT Z1@@+1"DATA"N$(I)","ZS(I) 
NEXT: PRINT"GOTOSS®" 

FOEE 1789,11:FOR I=&@ TO 16:POKE 531+1,13:NEXT 

: PRINT" CHOMEI”" END 

FRINT"ICLEARISPULEN SIE JETZT ZU-" 

: PRINT" IDOWNJIRUECK UND SPEICHERN" 

: PRINT" [DOWNIDAS FROGRAMM AM ANFANG" 

PRINT:PRINT"AB":GOSUB 170:END 


FFERFERRIKHRKRFHHRKTRHFHTHTH HR TH N TH HF N THF HN TER TH TH TH N THE TH TH TH TR TH TE HH TH TH TH TH N FH IHR HH HH RER 
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REM ####*#% LADEN DER FILES ##x#%%# 


KFARRKFEHFRHHIFHKRTKRHFHHHR RER ER KERN HER FERNNHTH TR FH THE N TH FH HH FH NH KH FH HR FH HH HH HH 


5998 
678 
798 


7/10 


RESTORE:READ A:FOR I=6 TO A-1:READ N$(I),ZS(I):NEXT 
PRINT"L[CLEARI"5:PRINT TAB(SP/Z-11)HD$ 
PRINT" LDOWNS3,SPACE2IF1 = AUFW. " 
: PRINT" LDOWN?, SPACE2IF2 = ABW." 
: PRINT" LDOWN?, SPACE2IF?7 = LADEN" 
PRINT" LDOWNA43": PRINT TAB(SP/2-6) "LRVS, SPACE2IS P A 
C E [RVOFFI":GOSUB 110: ZA=0 
PRINT"ECLEARI"5:3PRINT TAB(SP/2-11)HD%: Z=8: PRINT 
FOR I=ZA TO ZA+B:IF N$(I)<>""THEN PRINT 
:PRINT TAB{3)IN$ (I) 
NEXT 
POKE BS+P1+Z*P2,42:POKE BF+P1+Z*P2,FW 
GOSUB 118:REM TASTATUR ABFRAGE 
IF (ASC (A$)=133) AND(Z>®) THEN POKE BS+P1+Z#P2,32 
: Z=Z-1:60T0 759 
IF (ASC (A$) =134) AND (Z<8) AND (N$ (ZA+Z+1)<>"") THEN POK 
E BS+P1+Z*P2,32:Z=Z+1:60T0 759 
IF ASC(A$)=136 THEN 8530 
IF ASC(A$)=133 AND Z=® AND ZA THEN ZA=ZA-9:60T0 728 
IF (ASC (A$) =134) AND (N$ (I) )<>""AND(Z=8) THEN ZA=ZA+9 
:GOTO 728 
G0TO 750 


FKFEREFHEEHREHEHHRHFETHHH TH TR TFT HH TH TR TR FE TH TH FH RE TR FH TR FH TH TH FH FH TH TH TH FH FR RE TH HF FR TR TR HH NH FERN NH 


830 


REM LADEN 


E22 2 2.2 22 2 2 2 5 2 21221272572 227202 22222572 2727272 2 227202 222 222 2272 27252 272 2 22 2 222 


840 
3350 


IF{PEEK{WZIAND WW) =WW THEN 878 
PRINT"LICLEARIDRUECKEN SIE DIE" 
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8560 
870 
880 


8990 
70908 
718 
920 
730 
9749 
750 
768 
770 


9780 
790 


1000 
1010 


: PRINT" EDOWN, RVSISTOPLRVOFF , SPALEITASTE" 

PRINT" EDOWNJAM RECORDER" :=:WAIT WZ, WW, 255-WW 
PRINT"LCLEARI"5=:PRINT TAB(SP/2-11)HD$:PRINT:PRINT 
FRINT"DRUECKEN SIE DIE ":FRINT"L[DOWN, SPACE4,RVS,SP 
ACEIF.FWD [RVOFFI" 

PRINT: PRINT"TASTE" 

WAIT WZ,WW,WW:REM WARTEN AUF TASTE AM RECORDER 
PRINT" OK “ | 

R=TI:R2=R+Z75(Z+ZA) 

IF R2<TI THEN 950 

GOTO 738 

GOSUB 150 

PRINT"LCLEARI"5 PRINT TAB (SP/2-11)HD$ 
PRINT:PRINT"DRUECKEN SIE DIE " 

:PRINT"E[DOWN, SPACEAIFLAY " 

PRINT: PRINT"TASTE" 

PRINT" LDOWN41":PRINT TAB(SP/2-6) "ERVS,SPACE2ZIS PA 
C E LIRVOFFI":60SUB 110 

PRINT" LCLEAR, DOWN3JeL"3 CHR$ (34) (N$ (Z+ZA) )CHR$ (34) 
POKE 178,1:POKE 631,13:POKE 37148, 252: PRINT" CHOME]I" 
:END 


KERKRRERRERRKRERERRRHHTHH NR HN RHEIN HER FE HER HR FR HR N 


1020 


REM **#*%*%* PROGRAMMANZAHL #*##%%*%* 


KERRRRFRERKRRERRRR RK HR TH TR NN TFT TH HENRI HH TR HR FH RN HN RENNER RR 


2008 


DATA O 


IETFIHIHHHHIHHSIIHIHIHIHHIHHIIHHHHHIHHHHHHIHHIERE RI HH 


2095 


REM *#***** PROGRAMMDATAS KH 0%% 
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11. HARDWARE DER DATASSETTE 


Bis jetzt habe ich nur die Software zur Datassetten- 
handhabung beschrieben. In diesem Kapitel möchte ich auf die 
Hardware der Datassette selbst eingehen. 


11.1 PFLEGE DER DATASSETTE 


Wie jeder andere Cassettenrecorder braucht die Datassette 
auch eine gewisse Pflege. Das häufige Auftreten eines 
“"?LOAD ERROR" ist meistens die Folge eines verschmutzten, 


dejustierten oder magnetisierten Kopfes. 
1. Reinigung der Köpfe und der Andruckrolle 


Hierzu eignen sich sehr gut handelsübliche 
Wattestäbchen. Sind sie nicht greifbar, können Sie 
auch ein Streichholz oder ein anderes Holzstäbchen an 
einer Seite mit Watte umwickeln. Als Reinigungsmittel 
empfiehlt sich Alkohol, Fleckenbenzin oder Spiritus 
benutzen. 


Zur Reinigung selbst öffnen Sie den Cassettenschacht 
und drücken die PLAY-Taste. Nun können Sie mit den 
mit Reinigungsmittel getränkten Wattestäbchen die 
Köpfe (Lese- /Schreibkopf und Löschkopf) reinigen, 
indem Sie solange über die Frontseite der Köpfe 
fahren, bis die Watte keine braune Färbung mehr 
annimmt, und anschließend mit einem trockenen 
Wattestäbchen nachreiben. 


Es empfiehlt sich, im gleichen "Abwasch" auch die 
Gummi-Andruckrolle zu reinigen. Nach längerem Betrieb 
der Datassette bildet sich nämlich ein schlüpfriger 
Belag aus Bandabrieb. Dadurch wird das Band nicht 
mehr gleichmäßig am Tonkopf vorbeigeführt wird. Zur 
Reinigung legen Sie ein Stück nicht flusenden Stoffs 
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(Taschentuch oder ähnliches) über den Zeigefinger, 


befeuchten es mit einem oben beschriebenen 
Reinigungsmittel und halten den Finger bei auf PLAY 
laufender Datassette von rechts gegen die 
Andruckrolle. 


2. Demagnetisierung 


Zur Demagnetisierung benutzen Sie einen käuflichen 
Demagnetisator oder eine Demagnetisierungscassette, 
wie sie für Audioanlagen erhältlich sind. Die 
Handhabung ist dann genauso, wie sie in der 
entsprechenden Bedienungsanleitung beschrieben wird. 


11.2 WAHL UND HANDHABUNG DER CASSETTEN 


An eine Cassette zur Daten- und Programmspeicherung braucht 
man nicht die Anforderungen zu stellen wie an eine 
Audiocassette. Sie brauchen also für Ihre Datassette keine 
Cassetten mit besonders gutem Frequenzgang oder großem 
Rauschabstand. Nach dem bisher gesagtem wäre die billigste 


Cassette gerade gut genug. 


Der einzig wichtige Punkt ist, daß die Cassette keine "DROP 
OUTS" hat. DROP OUTS sind Stellen auf dem Band, an denen die 
Beschichtung mit magnetisierbaren Partikeln nicht 
einwandfrei ist. An diesen Stellen kann das Band nicht 
ordnungsgemäß magnetisiert werden, sodaß dort gespeicherte 
Informationen verlorengehen. Diese Gefahr ist leider bei 
normalen Superbilligcassetten gegeben. Meiner Meinung nach 
fahren Sie deshalb am besten mit den einfachen Cassetten 


irgend eines renommierten Herstellers. 


Um zu lange Spulzeiten zu vermeiden, empfehle ich Ihnen 


maximal C60-Cassetten zu verwenden. 


Wie Sie wissen, sind am Anfang oder am Ende des Bandes 
Vorspannbänder angebracht, um die Belastung, die beim 
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Anschlag an das Ende auf das Band einwirkt, abzufangen. 
Trotzalledem wird das Magnetband am Anfang und am Ende immer 
noch stärker belastet als an anderen Stellen, was zu einer 
Dehnung führen kann. Ich empfehle Ihnen deshalb, auf den 
ersten und letzten 10 - 20 Sekunden zur besseren 


Datensicherung keine Daten zu speichern. 


Sonst gilt für Datencassetten das gleiche wie für Audio- und 
Videocassetten. Setzen Sie sie keinen starken Magnetfeldern 
aus und lagern Sie sie staubgeschützt. Auch sollten Sie sie 
nicht zu lange lagern (über viele Monate), ohne sie einmal 
umzuspulen. Sonst treten die magnetischen Schichten des 
Bandes möglicherweise miteinader in Wechselwirkung und 


können sich dadurch verändern. 


Um Programme gegen äußere Einflüsse oder auch eigenes 
Fehlverhalten zu schützen, empfiehlt es sich, von allen 
wichtigen Daten und Programmen eine Kopie anzufertigen, mit 
der Sie nicht arbeiten und die Sie auf einer 
schreibgeschützten Cassette ablegen. So können Sie immer 
dann, wenn Ihre Arbeitskopie zerstört wird, auf das 


Mutterfile zurückgreifen. 
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11.3 ARBEITSWEISE DER DATASSETTE 


wie im Kapitel 8 beschrieben wird die zu speichernde 
Information in Form von Pulsen der Datassette übermittelt. 
Dies geschieht dadurch, daß beim C-64 am Portbit 3 des 
Prozessors (Speicherstelle eins) entweder eine Spannung von 
ca. 5 V= 1 oder 0 V = OÖ anliegt. Bei VC 20 ist es das Bit 3 
der Speicherstelle 37152. Sowohl beim VC 20 als auch beim 
C-64 ist dieser Anschluß direkt mit den Cassettenport - 


Anschlüssen E und 5 verbunden. 


Ideal liegt das Signal folgendermaßen dort an: 


Über einige elektronische Stufen, die ich hier nicht näher 
erläutern will, gelangt das Signal zum Tonkopf. Der Tonkopf 
ist eine Spule mit Ringkern, die einen kleinen Schlitz auf 


der dem Band zugewandten Seite hat. 


Sehlitz 


Magnetfeld 


Ringkern 


Tonkopf 


Entsprechend der an den Spulenanschlüssen angelegten 
Spannung entsteht ein Magnetfeld am Schlitz, das dann die 
magnetisierbaren Partikel auf dem Band in eine bestimmte 
Richtung ausrichtet. Das widealisiertes Magnetiesierungs- 
muster auf dem Band sieht dan folgendermaßen aus: 
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Wenn Sie nun das Band lesen, wird der ganze Vorgang 


umgekehrt. 


Durch die magnetisierten. Partikel wird über den 
Tonkopfschlitz eine Spannung in der Spule erzeugt, die über 
einige Baustufen wieder zu dem gleichen Spannungsverlauf 
führt wie beim Abspeichern. Diese Spannung liegt an den 


Cassettenport-Anschlüssen D und 4 an. 


Wenn nun aus irgendwelchen Gründen die Stellung des 
Tonkopfes zum Band beim Lesen anders ist als beim Speichern, 
erhalten wir folgendes Bild: 


Im oberen Teil des Schlitzes ist die Magnetisierungsrichtung 


eine andere als im unteren Teil. Beide Wirkungen löschen 
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sich gegenseitig, und die Daten werden fehlerhaft 


eingelesen. 


11.4 EIN LAUTSPRECHER FÜR DIE DATASSETTE 


Sie haben sich bestimmt schon darüber geärgert, daß Sie 
außer dem ziemlich unzuverlässigen zählwerk keine 
Möglichkeit haben, die Position Ihres Bandes festzustellen. 
Wünschenswert wäre, festzustellen, ob Sie gerade innerhalb 
eines Programms das nächste suchen, oder ob Sie gerade am 
Start eines Programms sind. So könnten Sie viel schneller 


PELIFIER 


ein bestimmtes Programm suchen. 


Diese Möglichkeit können Sie sich durch den Anschluß eines 
Lautsprechers an die Datassette schaffen. Mit Hilfe dieses 
Lautsprechers hören Sie, wo ein Programm anfängt. Sie können 
nun durch die Wiederholung von kurzzeitigem, schnellem 
Vorlauf und folgendem "Reinhören" mit PLAY viel besser den 
Start des folgenden Programms finden. 


Weiterhin ist das akustische "feed-back" bei der 
Tonkopfjustierung, das ich in Kapitel 11.5. beschreiben 
werde, ein wichtiges Hilfsmittel. 


Zum Anschluß an die Datassette eignet sich jeder 
Lautsprecher. Da es ja nicht auf einen möglichst guten 
Klanggenuß ankommt, können Sie auch aus einem alten 
Miniradio den Lautsprecher ausbauen. Dieser Lautsprecher 
wird an die READ-Leitung angeschlossen. Damit Sie diesen 
Anschluß nicht überlasten, müssen Sie noch einen Widerstand 
von ca. 500 Ohm in Reihe schalten. Weiterhin können Sie noch 
ein Potentiometer von 2 - 5 KOhm in Reihe zum Lautsprecher 


schalten, um die Lautstärke regeln zu können. 
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optional 
READ 
3-5 kOhm 500 Ohm 


GRND 


Anschluß des Lautsprechers 


Am einfachsten läßt sich ein Lautsprecher an den Stecker der 
Datassette anschließen. Dazu öffnen Sie den Stecker, der an 
den Computer gesteckt wird, und klemmen den einen Anschluß 
an die GROUND-Leitung (A/1) und den anderen an die 
READ-Leitung (D/4). 


Schließen Sie dann den Stecker wieder und stecken ihn an den 


Cassetten-Port Ihres Computers. 


Schalten Sie nun den Computer ein, legen die bespielte 
Cassette ein und drücken die PLAY-Taste. Jetzt hören Sie 
entweder einen eintönigen Pfeifton oder ein zirpendes 
Geräusch. Der Pfeifton entspricht der Synchronisation und 
kennzeichnet einen Blockanfang. Das zirpende Geräusch 


entspricht den aufgezeichneten Daten. 
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11.5 KOPFJUSTAGE 


Es kann aus verschiedenen Gründen vorkommen, daß der Tonkopf 
nicht mehr in der richtigen Stellung zum Band steht, was zum 
fehlerhaften Laden führt. Dies kann z.B. passieren, wenn Sie 
Programme von einer Cassette einlesen wollen, die nicht mit 
Ihrer Datassette bespielt wurde. Es kommt aber auch vor, daß 


sich der Kopf selbständig nach längerer Zeit dejustiert. 


Mit Hilfe eines Lautsprechers ist die Dejustierung gut zu 
hören. Wenn der Kopf gegenüber dem Band auch nur leicht 
verwinkelt ist, geht dies als erstes zu Lasten der hohen 
Frequenzen. Ich möchte das anhand zweier Zeichnungen einmal 
verdeutlichen: | 


niedrige 


Frequenz 


hohe 


Frequenz 


Wie aus den Abbildungen zu sehen ist, gibt es bei niedrigen 
Frequenzen immer noch Bandpositionen, bei denen über die 
ganze Spaltänge die gleiche Magnetisierung wirkt. 


Bei hohen Frequenzen liegt am Spalt immer nur eine Mischung 


verschieder magnetisierter Bereiche an. Somit werden solche 
Frequenzen gedämpft. 
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Beim Datenlesen erhalten Sie das in Abbildung 2 dargestellte 
Bild. Das vom Tonkopf aufgenommene Signal ist annähernd 
sinusförmig. Dieses Signal wird innerhalb der Datassette 
über eine Schmitt-Trigger Schaltung in computerlesbare 
Rechteckimpulse umgesetzt. Ein Schmitt-Trigger ist nichts 
anderes als ein Schalter, der sich bei einer bestimmten 
Spannungen, der sogenannten "Schwellenspannung", ein- bzw. 
ausschaltet und somit eine Rechteckspannung am Ausgang 


erzeugt. 


Aus der Abbildung 2 wird klar, daß durch einen dejustierten 
Kopf die Zeitverhältnisse zwischen den einzelnen Pulsen, die 
ja die Information enthalten, nicht mehr stimmen. Deshalb 


wird das Band fehlerhaft gelesen. 


Nach dieser theoretischen Einführung kommen wir zum 


praktischen Teil. 


Wenn Sie die neuere Ausführung der Datassette haben, finden 
Sie ungefähr in der Mitte vor dem Cassettenfach ein kleines 


Loch. 


Loch zur Tonkopfjustierschraube 


Durch dieses Loch erreichen Sie mit einem kleinen 


Kreuzschlitzschraubendreher bei gedrückter PLAY-Taste die 
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Tonkopfeinstellschraube. 


Bei den alten Datassetten gibt es kein Loch. Um bei diesen 
Geräten den Tonkopf justieren zu können, müssen Sie selber 
ein Loch in das Plastikgehäuse bohren. Die genaue Position 


dieses Lochs entnehmen Sie bitte der folgenden Zeichnung. 


Ww _FFWD PLAY BIER 
RE i * AEJECT 


Hier müssen Sie das Loch bohren 


Doch bevor wir nun beginnen, den Kopf zu justieren, noch 


zwei Warnungen: 


1. Es ist möglich, daß Sie den Kopf so sehr 
dejustieren, daß eine richtige Justage ohne 
aufwendige Hilfsmittel (Meßgeräte) nur sehr schwer 
möglich ist. Auch müssen Sie darauf achten, daß sie 
die Justierschraube nicht gänzlich herausdrehen. 
Normalerweise reichen maximal zwei Umdrehungen in 
jede Richtung aus, um den Kopf zu justieren. Meist 


reicht schon eine halbe Umdrehung aus. 


2. Nachdem Sie den Kopf neu justiert haben, kann es 
sehr gut sein, daß sie die Programme, die Sie mit 
der letzten Einstellung abgespeichert haben, nicht 


mehr laden können. 
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Damit Sie möglichst leicht die ursprüngliche Kopfstellung 
wiederfinden können und einen dejustierten Kopf besser 
justieren können, benutzen Sie das folgende kleine Programn. 
Es schreibt ein Zirpen auf Cassette mit einem großen Anteil 


hoher Frequenzen. 


Da es ja die hohen Frequenzen sind, die zuerst gedämpft 
werden, erleichtern Sie sich durch dieses Zirpen die 
Einstellung auf die Kopfstellung, mit der das Zirpen 
abgespeichert wurde, sehr. Auch können Sie damit den Kopf 


bedeutend genauer justieren. 


Geben Sie also das Programm ein und speichern es ab. 
Schreiben Sie dann auf eine leere Cassette ca. zwei Minuten 


das von diesem Programm erzeugte Zirpen. 


KERRRHRHURRRRRTRTR TR TR TH TH NN EN HH HH KHK HN IN IH TH FH HH HH FEN HH HH HH HH 
18 REM KOPFJUSTAGE HILFSPROGRAMM C64 

KERHRRRRRERKRERNHTRN INT NH TEN HH NEN TH TH NH THF TINTE I NN III INH HH HH 
28 E=256#PEEK (56) +PEEK (55) -1:A=E-17 
38 FOR I=A TO E:READ X:POKE I,X:NEXT 
48 PRINT"STARTADRESSE"A 
58 PRINT:PRINT"LEGEN SIE EINE LEERCASSETTE EIN UND" 
68 PRINT:PRINT"DRUECKEN SIE RECORD & PLAY" 
78 WAIT 1,16,16 
80 PRINT:PRINT"ENDE DURCH RUN/STOP TASTE" 
380 SYS A:END 

1008 DATA 160, 255,169,255,162,255,32,177,251,136, 208,246, 
32, 225, 255, 208, 239,96 


ERERRIRININKHHNHNHIHNHNENIHINHHNHHNIEHIHHRHNRIHHHRIHHRHHI HH 
18 REM KOPFJUSTAGE HILFSPROGRAMM VC 28 
RRRHRHHEIHIHAHHHIHHHHIEIHHHIHHIHHHHHHHISEIHNE ENTER RI 
20 E=256#PEEK (56) +PEEK (55) -1:A=E-17 
58 FOR I=A TO E:READ X:POKE 1,X:NEXT 
.48 PRINT"STARTADRESSE"A 
58 PRINT:PRINT"LEGEN SIE EINE LEERCASSETTE EIN UND" 
68 PRINT: PRINT"DRUECKEN SIE RECORD & PLAY" 
78 WAIT 37151,64,64 
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80 PRINT:PRINT"ENDE DURCH RUN/STOP TASTE" 
98 SYS A:END 
10080 DATA 160, 255,169, 255,162,255,32,177,251,136, 208, 246, 
32,225, 255,268, 239,96 


Spulen Sie das Band zurück, nehmen Sie den kleinen 
Kreuzschlitzschraubendreher zur Hand und drücken die 
PLAY-Taste. Führen Sie nun durch das beschriebene Loch den 
Schraubendreher senkrecht ein, bis er in der Schraube 
einrastet. Drehen sie nun jeweils eine halbe Umdrehung nach 
rechts und links von der Ausgangsposition und achten Sie 
dabei auf die typische Klangveränderung. Nur in einer 
Stellung, nämlich in der Ausgangsstellung, hören Sie die 


meisten hohen Frequenzen. 


Legen Sie nun eine bespielte Datencassette ein und 
wiederholen Sie den Vorgang. Sie werden jetzt in einem 
größeren Bereich keine Klangveränderung mehr feststellen. 
Die beste Stellung zwischen den hörbaren Änderungen ist hier 
die Mittelstellung. 


Nachdem Sie sich auf diese Weise etwas "eingehört" haben, 
können Sie auf gleiche Weise den Kopf auch auf Programme 
justieren, die Sie nicht laden konnten. Versuchen Sie auch 
hier nach Gehör die beste Kopfstellung herauszufinden. 
Danach versuchen Sie, das Programm zu laden. Läßt es sich 
immer noch nicht laden, verändern Sie die Kopfposition etwas 


und versuchen es erneut. 


Gelingt es Ihnen trotz vielfachen Versuchens nicht, das 
Programm einwandfrei zu laden, verfahren Sie so, wie es in 


Kapitel 4.1 beschrieben wurde. 


Ehe Sie aber das UNNEW-Programm laden, bzw. das 
Programmfragment abspeichern, müssen Sie den Tonkopf mit 
Hilfe der von Ihnen angefertigten Justiercassette wieder in 


die Ausgangsposition bringen. 
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11.6 ANDERE CASSETTENRECORDER ZUR DATENSPEICHERUNG 


In meinen Ausführungen habe ich mich immer auf die 
Datassette von Commodore bezogen. Es ist aber ohne weiteres 
möglich, andere Cassettenrecorder mit einer entsprechenden 
Anpassung als Aufzeichnungsgerät zu verwenden. Die Anpassung 
erfolgt durch ein Interface, welches die vom Band kommenden 
Signale in für den Rechner verständliche Rechteckimpulse 
umsetzt. Solche Interface-Bausteine werden von verschiedenen 


Herstellern recht preiswert angeboten. 


Der Vollständigkeit halber möchte ich hier eine kleine 
Schaltung zum Selbstbau darstellen. Die benötigten Bauteile 


entnehmen Sie bitte folgender Aufstellung. 


Bauteile für ein Cassettenrecorder-Interface 


Platinen - Stecker für den Cassettenport am VC 20/C64 
Stecker für den Kopfhörerausgang Ihres Cassettenrecorders 
Stecker für den Microphoneingang Ihres Cassettenrecorders 
IC SN 7414 (6 * Invertierender Schmitt-Trigger) 


ee Er Ve Ve N 


Microschalter (ein/aus) 


ggf. 
1 Stecker für den Remote-Eingang Ihres Recorders. 


Als Recorder eignen sich für diese Schaltung nur solche, die 
mit einer Betriebsspannung von 4-6 V arbeiten und den 


Minuspol auf Masse haben. 


Die Verschaltung der Bauteile finden Sie aufder nächsten 


Seite, 
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Cass.-Port Recorder 


E/5 O — MIC Eing. 


Microschalter 
A/l O 
F/6 
D/a 9 „Er u Kopfhörer 
1/3 SN7414 pP. 
C/3 oO ® Remote‘ 
B/2 © - IC Pin 14 


Beschreibung der Anschlüsse am Cassetten Port: 


A/1 = Masse 

B/2 = +5V 

C/3 = Cassetten-Motor (+5 V = ein) 

D/4 = Leseleitung 

E/5 = Schalterleitung für Recordertaste 


In dem Ic SN 7414 sind sechs invertierende Schmitt-Trigger 
enthalten. Schmitt-Trigger sind Schaltungen, die aus einem 
beliebigen Spannungsverlauf entsprechende Rechteckimpulse 
bilden wie ich es im Kapitel 11.5 beschrieben habe. 


Von diesen sechs benötigen wir für diese Schaltung zwei, da 


es sich ja um invertierende Schaltungen handelt. 


Die Betriebsspannung dieses Bausteins entnehmen wir den 
Cassetten-Port (Pin? - A/1, Pini14 - B/2). 


Wenn Sie den Cassettenrecorder nur für Ihren Rechner 
benutzen, können Sie die Schaltung in das Batteriefach 
einbauen, und die Microphon- und Kopfhörerleitung 


festanlöten. Damit sparen Sie die Klinkenstecker. 


Sehr praktisch wäre es dann noch, wenn Sie in der 
Recordermechanik eine Stelle finden würden, wo Sie den 
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Microschalter so anbringen können, daß er bei dem Drücken 
einer Taste geschlossen wird. Geht das nicht, müssen Sie den 


Schalter außen anbringen und manuell betätigen, bevor Sie 
eine Recorder-Taste drücken. 
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12. EIN NEUES CASSETTENBETRIEBSSYSTEM - FASTTAPE 


Im ersten Teil habe ich Ihnen die Handhabung der Datassette 
mit dem im Rechner eingebauten Betriebssystem erklärt. Dazu 
habe ich Ihnen einige Programme gezeigt, die das Arbeiten 
mit Ihrem Datenrecorder vereinfachen. Nun möchte ich Ihnen 
ein neues Betriebssystem vorstellen, das nicht nur die schon 
beschriebenen Vereinfachungen beinhaltet, sondern auch noch 
ca. 10 - 20 mal schneller arbeitet, und damit eine 


Diskettenstation noch überflügelt. 
Ich muß zugeben, daß Sie sich aufgrund der Programmlänge die 
Finger fast wund tippen können, aber das Ergebnis lohnt die 
Arbeit. Das Programm hat folgende Charakteristika: 
1. 10 mal schnelleres Speichern und Laden der Programme. 
2. Unterstützung der Datenspeicherung. 
Daten können bis zu 20 mal schneller geladen und 
gespeichert werden als mit dem normalen Betriebssystem. 


3. Append von Basic-Programmen ist mit einem Befehl möglich. 


4. Das Laden win oder das Speichern von bestimmten 
Speicherbereichen ist ebenfalls mit einem Befehl möglich. 


5; Programme und Daten, die mit FastTape abgespeichert 
wurden, können sowohl vom VC 20 als auch vom C-64 gelesen 


werden. 


6. Alle FastTape Befehle arbeiten sowohl im Direktmodus als 


auch innerhalb von Programmen. 
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DIE BEDIENUNG DES PROGRAMMS 


Nach dem Laden des Programms winitialisieren sie es mit 
SYS7*4096 beim VC 20 und mit SYS12*4096 beim C-64. Durch den 
Basic-Lader wird das Programm automatisch initialisiert. 
Nach einem RESET müssen Sie das Programm aber neu 
initialisieren. Jedem FastTape Befehl geht ein Pfeil nach 


links (&-) voraus. 


Ihnen stehen jetzt folgende Befehle zur Verfügung (In 
Klammern stehende Ausdrücke sind optional, müssen also nicht 


gegeben werden): 


SA = Sekundäradresse 

Sadr, Eadr = Start- bzw. Endadresse 

"name" kann auch als Stringvariable übergeben werden 

SU"’NAME" ‚SA. SADR. EADR) FASTTAPE SAVE 

S("name") : Basic-Programm wird als 
verschiebbares File im Programm 
gespeichert und mit L an den 
Basic-RAM-Start geladen. 

S"name",1 : Basic-Programm wird als absolutes 
File gespeichert und mit Lan die 
Adresse geladen, von wo es 
abgespeichert wurde. 

S"Name",1,Sadr,Eadr : Der Speicherbereich zwischen Sadr und 
Eadr wird als absolutes File 
gespeichert. 

LU"NAME” ‚SA. SADR) FASTTAPE LOAD 


Wird dieser Befehl innerhalb eines Programms gegeben, 
startet danach das Basic-Programm analog zum LOAD-Befehl 


wieder bei der ersten Zeile. 
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L("name") 


L"name", 1 


L"name, 1,Sadr 


VUT’NAME SA. SADR) 


Ein Programm oder Speicherbereich, 
der mit S abgespeichert wurde, wird 
entsprechend der bei S gegebenen SA 


entweder absolut oder verschiebbar 


geladen. Wird dieser Befehl im 
Direktmodus gegeben, werden die 
Basic-Vektoren entsprechend dem 


geladenen Programm gesetzt. 

Programme und Speicherbereiche werden 
absolut geladen. Auch im Direktmodus 
werden durch diesen Befehl die 
Basic-Vektoren nicht geändert. 
Dadurch ist kein NEW-Befehl nach dem 
Laden eines Maschinenprogramms 
notwendig. 

Ein Speicherbereich wird an Sadr 
geladen, unabhängig davon, von 
welcher Adresse es abgespeichert 
wurde. Dadurch haben Sie z.B. die 
Möglichkeit, einen einmal abge- 
speicherten Bildschirminhalt auch 
dann . wieder in den Videorom 
einzulesen, wenn Sie den Videorom 


verschoben haben. 


FASTTAPE VERIFY 


Arbeitet analog zu L, vergleicht aber nur den Speicherinhalt 


mit den auf Band stehenden Bytes. 


MUT"NAME ) 


FASTTAPE MERGE 


Mit diesem Befehl können Sie ein FastTape-Programm an das im 


Speicher befindliche anhängen. 
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DS "NAME" DATASAVE 


Dieser Befehl speichert alle bis dahin definierten 
Variablen, Felder und Strings ab. Mit diesem Befehl werden 
nur die im Stringspeicher stehenden Strings abgespeichert. 


Wenn in Ihrem Programm Stringzuweisungen wie 
100 AS="TEST" 


existieren, können Sie die entsprechenden Strings nur mit 
dem gleichen Programm wieder richtig laden. Abhilfe können 
Sie durch eine Verknüpfung mit einem Leerstring schaffen. 


Hier gilt das gleiche, wie im Kapitel 5.1 beschrieben. 


DL "NAME" DATALOAD 


Mit diesem Befehl laden Sie die mit DS abgespeicherten 
Variablen, Felder und Strings. Alle bis zu diesem Befehl 
definierten Variablen, Felder und Strings werden gelöscht. 


Achtung! ! 


DS und DL muß immer in Verbindung mit einem Filenamen 
verwandt werden. Durch diese Befehle werden die Variablen, 
Felder und Strings in drei Blöcken abgespeichert bzw. 
geladen. Der Filename dient dem Computer zur Identifizierung 
des jeweils ersten Blocks. 


Achtung! ! 


Das Basic-RAM-Ende muß bei DS und dem entsprechenden DL das 
gleiche sein. Die Stringtabelle wird als absoluter Block 
gespeichert und geladen. Wenn Sie das Ende des Basic-RAMs 
heruntersetzen, nachdem Sie DS gegeben haben und dann mit 
DL Daten laden, kann eventuell ein hinter das neue 
Basic-RAM-Ende geschriebene Maschinenprogramm zerstört 
werden. 
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Damit Sie sehen, wie komfortabel Sie mit diesen Befehlen 
Datenverarbeitung betreiben können, finden Sie im nächsten 
Kapitel, ein ausführlich beschriebenes Dateiverarbei- 
tungsprogramm. Durch den Basic-Lader FT64 wird das Programm 
im C-64 ab der Speicherstelle $COOO abgelegt. 


Der Basic-Lader FT20O legt das Programm im VC 20 ab der 
Speicherstelle $7000 ab, d.h. dieses Programm arbeitet nur 
dann in einem VC 20, wenn er voll ausgebaut ist. Es ist aber 
ohne weiteres möglich, mit Hilfe eines MONITOR-Programms und 
dem ASSEMBLER-Listing das FastTape-Programm auf einen 


anderen Speicherbereich umzuschreiben. 
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PROFI-ASS 64 V2.0 


C009 
U.0800 
LO00 
[008 


[208 
[900 
C008 


[900 
[9090 


[2098 
00808 
09881 
0002 
22RCQ 
BOAS 
0004 
GaSF 
0075 
0308 
o2AQ 
09908 
GOCH 
OOAE 
80D7 
835C 
C9008 
DD66 
DC90 
[080 


[0090 
FöBF 


FSD2 
ABZC 
FC?5 
E17A 
F750 
F5AF 
A7E7 
A7AE 
F838 
F817 
B526 
E206 
E257 
E200 
EZBE 
AFO8 
ADBA 
B7F7 
As&R 
A437 
N1677 
[090 
[B08 
FFB7 
FFBD 


SEITE 1 


„PAG 61 
„OPT P2 


; FASTTAPE FUER VC26 UND C-64 


;WERTE IN KLAMMERN GELTEN FUER 


= 
’ 


COMPU 
PORT 
ABSFLG 
MOFLAG 
BITC 
BEFANZ 
CODE 
CHRGET 
VECTOR 
IROFLG 
STATUS 
STARTV 
ENDVEC 
PSUMME 
CASPUF 


cIAI 
CIAZ 


SAVING 
LOADING 
STOP 
ENDEN 
BEFEND 
FOUND 
STOEND 
OLD 
INTER 
RPTASTE 
PTASTE 
GSABCOL 
WZEICH 
HFNAM 
HOLPAR 
CHRIN 
SYNTAX 
FRMNUM 
FACINT 
CLEAR 
FEHLAUS 
BEENDEN 


HOLSTA 
SETNAM 


u | Be | se TE u | TE a a Tu 


nl 


| [use | Eu | De Eu Eu | Eu 


1 u u | se | a TE u Eu 
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ar 


a. u a a ME Sa 


RI u 7 7 oo. ws 


em NE EEE NEE NEE EEE NR N TE NE SE 


=. 


(2) 
(57120) 


BEFEHLSADR. HOLEN 


IRQ FLAG 


STATUSBYTE 

LADESTARTVEKTOR 

LADEENDVEKTOR 

PRUEFSUMMENBYTE 

STARTADR. VOM CASSETTENPUFFER 


C-64 
C-64 


($C82C) 
($FCCF) 
($E17N 
($F7D3) 
($F641) 
($C7E7) 
($A7AE} 
($F8B7) 
(57894) 
($D526) 
($E203) 
($E254) 
($E1FD) 
($E20B) 
(CF98) 
($SCD8A) 
($D7F7) 
($C660) 
($0437) 
($6477) 


STARTADRESSE DES CIA1 
STARTADRESSE DES CIA2Z 


($F728) GIBT SAVING ’NAME” AUS 
{($F66A) GIBT LOADING AUS 


TESTET STOPTASTE 
LADEN BEENDEN i 
RUECKSPRUNG VOM LADEN 
GIBT FOUND ”’NAME’ AUS 
ENDADR. NACH X/Y 
BEFEHL AUSWERTEN 
INTERPRETERSCHLEIFE 
WARTET AUF PLAY-TASTE 
WARTET AUF TASTE 
GARBAGE COLLECTION 
WEITERE ZEICHEN PRINT 
FILENAMEN HOLEN 
FILEPARAMETER HOLEN 
ZEICHEN HOLEN 

SYNTAX ERROR AUSGEBEN 
TERM AUSWERTEN 

IN INTEGER WANDELN 
ELR 

FEHLER AUSGEBEN 


STATUS HOLEN 
FILENAMEPARAMETER SETZEN 


FROFI-ASS 64 V2.8 


450: 
460: 
500: 
og: 
518: 
518: 
529: 
530: 
530: 
560: 
570: 
530: 
590: 
680: 
602: 
692: 
6053: 
605: 
684: 
6096: 
6096: 
518: 
620: 
6530: 
640: 
650: 
654: 
654: 
655: 
657: 
657: 
660: 
670: 
688: 
6978: 
798: 
718: 
720: 
7380: 
740: 
7590: 
7559: 
755: 
768: 
7798: 
770: 
788: 
798: 
890: 
898: 
81a: 
815: 
815: 
828: 
839: 
840: 
850: 
8492: 
869: 


FFBA 
FFEA 
C000 
co00 
C808 
C000 


[908 
[000 
C9908 
c092 
C9095 
c907 
LOOA 
CO0B 


 CO8B 


CO08B 
CO0B 


[0GB 
CO0B 
CO0B 
COBE 
c918 
c812 
C914 
Cc817 
C017 


C817 
C917 
c017 
E81A 
COolD 
928 
c922 
0925 
027 


co28 


LCO2A 
LeZC 
Lo2F 
EO2F 
LOZF 
[050 
C031 
[0832 
035 
056 
057 
LO3A 
C8SD 
C83D 
C93D 
LOSF 
co41 
[8453 
C045 
C048 


A7 
8D 
AI 
8D 
68 


20 
F@ 
C7 
Fo 
ac 


öB 
08 
co 
07 


73 
a4 
SF 
0853 
E7 


753 
20 
AE 
80 
54 
88 


094 
Fö 
08 


85 


053 


00 


a7 


AF 


co 
[a 


08 


AF 


SEITE 2 


SETLFS 
GET 


$FFBA 
$FFE4 


FILEPARAMETER SETZEN 
EIN ZEICHEN EINLESEN 


7 mr) 


;PROGAMM INITIALISIEREN 


INIT LDA 
sTA 
LDA 
STA 
RTS 


#<START 
VECTOR 
#>START 
VECTOR+1 


; PROGRAMMSTART 


START JSR 
BEQ 
CcMP 
BEO 
ENDE JMP 


CHRGET ; ZEICHEN HOLEN 


ENDE 
#CODE s MIT FASTTAPECODE 
FTAPE ;3 VERGLEICHEN 


OLD ;3 UNGLEICH => ALTE ROUTINE 


sFASTTAPE BEFEHL AUSWERTEN 


FTAPE JSR 
JSR 

JMP 
SUCH LDX 
SUCHL CMP 
BER 

INX 

EPX 

BNE 

JMP 


BEFEHL TXA 
ASL 
TAX 
LDA 
PHA 
LDA 
PHA 
JMP 


DATA CMP 
BEBO 
CMP 
BEO 
JMP 
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CHRGET 
SUCH 
INTER 
#0 
TAB,X 
BEFEHL 


MIT BEFEHLSBUCHSTABEN 
AUS TABELLE VERGLEICHEN 


BEFANZ 
SUCHL 
SYNTAX 5 KEIN FASTTAPE BEFEHL 


; BEFZAHL * 2 

BEFADR+1,X 3; BEFEHLSADRESSE AUF 
; STACK 

BEFADR, X 


CHRGET ; UND BEFEHL AUSFUEHREN 


#"5" ; DATEN SPEICHERN 


DS 

HL" ; DATEN LADEN 
DL 

SYNTAX 


FROFI-ASS 64 V2.0 


865: 
878: 
870: 
880: 
880: 
9853: 
885: 
886: 
897: 
897: 
890: 
895: 
875: 
896: 
897: 
897: 
900: 
990: 
900: 
918: 
918: 
920: 
920: 
1650: 
1650: 
1668: 
1660: 
1665: 
166%&: 
1666: 
1570: 
1688: 
1682: 
1684: 
1498: 
1692: 
1694: 
1695: 
1708: 
1718: 
1728: 
1725: 
1730: 
17409: 
1750: 
1768: 
1770: 
1774: 
1774: 
1775: 
1776: 
1776: 
1780: 
1790: 
1808: 
1818: 
1828: 
1830: 
1840: 


C848 
C948 
C94B 
CO4E 
coSi1 
c054 
c054 


c954 
c954 
C954 
[057 
957 


057 
c957 
6957 
C05B 
COSD 
LOSF 
C261 
C9653 
[0653 
C9653 
00653 
C0653 
C9653 


8653 
C065 
C0653 
C865 
C067 
0967 
CO5B 
COöE 
970 
972 
074 
876 
c978 
Co7A 


C97C ( 


C07D 
C97F 
[882 
C085 
C988 
C0988 


C888 
C988 
C088 
C28B 
C98D 
COBE 
[090 
c091 
094 


35 


62 
12 
72 
61 
Sc 


20 
AS 
18 
697 
CA 
20 


A2 


4C 


13 
B7 


01 


33 
08 


36 


c2 


F&8 
Fä 
co 


ci 


ci 


SEITE 3 

DS JSR X CHRGET 
JMP 4 DASAVI 

DL JSR 2 CHRGET 


JMP DATLOD 
; TABELLE DER BEFEHLSBUCHSTABEN 
TAB „ASC "SLVMD" 
; TABELLE DER BEFEHLSADRESSEN 


BEFADR „ WORDSAVE-1 
- WORDLOAD-1 
.WORDVERIFY-1 
. WORDMERGE1-1 
. WORDDATA-1 


;SAVE ROUTINE 


SAVE LDX #805 ; ANZAL DER SYNCHR. 
STX $AB 5 WIEDERHOLUNGEN 
LDX #$00 3 FLAG LOESCHEN 
STX ABSFLG 
JSR GETPARA ; PARAMETER HOLEN 
LDA ABSFLG 
AND #2 5 TEST AUF BIT 2 
BNE ABSOLUT ; GESETZT => ABSOLUT LADEN 
LDX 38904 
LOOP1 LDA $2A,X 
STA $AB,X 
STA $A6,X 
DEX 
BNE LDOP1 
ABSOLUT JSR RPTASTE 
JSR SAVING 
JSR MOTOR 


SPEICHERT BASICSTART UM 


”’SAVING NAME?” AUSGEBEN 
MOTOR EINSCHALTEN 


; VORSPANN SCHREIBEN 


JSR SYNCH ; SYBCHRONISATION 1 SCHREIBEN 
LDA BY s SECUNDAERADR. INCREMENTIEREN 
CLE 

ADC #$01 

DEX 


JSR WBYTE ;3 SCHREIBT SA 
LDX #$08+CDMPU 
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PROFI-ASS 64 V2.0 


1850: 
1850: 
18780: 
1888: 
1898: 
1998: 
1910: 
1920: 
19390: 
1749: 
1750: 
1960: 
19779: 
1980: 
1999: 
2096: 
2010: 
20209: 
2030: 
20534: 
2054: 
2035: 
2036: 
205386: 
2940: 
2050: 
2069: 
2070: 
2080: 
2090: 
2180: 
2194: 
2104: 
2105: 
2106: 
2106: 
2119: 
2120: 
21390: 
2149: 
2150: 
2160: 
21780: 
21880: 
21970: 
2200: 
2210: 
2220: 
2230: 
2240: 
2250: 
2268: 
2278: 


- 


2280; 


2290: 
2509: 
2519: 
2520: 
2530: 


C996 
8997 
C99IC 
CIE 
CO9F 
toR1 
C9A2 
L9A4 
LOA& 
COAB 
CBAA 
COAC 
CORE 
CB 
CoB1 
C0B4 
C0B6 
C0B7 
C0B7 
CO@BB 
COBB 


COBB 
COBB 
COBB 
COBD 
COBF 
C29C2 
C9C5 
COCh 
coc8 
COCA 
LCBCA 


COCA 
COCA 
COCA 
COCB 
COCD 
CD 
CoD2 
C0D4 
CoD& 
C9D8 
C09D7 
CODA 
CODE 
CODE 
CBEB 
COE2Z 
COE4 
COES 
CBE7 
CYEA 
EBEC 
COED 
CBER 
ECOF® 
CoF2 


02 
AB 
15 


33 
D7 
087 


08 
ci 


ci 


ci 


ci 


ci 


ci 


SEITE 4 


LOOP2 LDA 
JSR 
LDX 
INY 
CPY 
NOP 
BNE 
LDY 
LDX 
LOOPS3 LDA 
EPY 
BCC 
LDA 
DEX 
TEXT JSR 
LDX 
INY 
CPY 
BNE 


$A7,Y 
WBYTE 


; SCHREIBT START- UND ENDADRESSE 


#$986+C0MPU 


#505 


LOOP2 
#500 


;SCHREIBT FILENAMEN UND ’SPACES’ 


#$04+COMPU 


($BB),Y 
$B7 
TEXT 
#320 


WBYTE 
#505 


#$BB 
LOOPS 


;SYNCHRONISATION 2 SCHREIBEN 


LDA 
sTA 
JSR 
TYA 
JSR 
STY 
LDX 


s PROGRAMM SCHREIBEN 


NOP 
PRGLOOP LDA 
JSR 
LDX 
INC 
BNE 
INC 
DEX 
DEX 
NOHI LDA 
CMP 
LDA 
SBC 
BCC 
NOP 
LOOP4 LDA 
JSR 
LDX 
DEY 
BNE 
INY 
STY 
CLI 


($AC) ,Y 
WBYTE 


#502 

$AB 
- SYNCH ; SCHREIBT SYNCHRONISATION 
WBYTE ; © BYTE => ENDE VORSPANN 
PSUMME ; PRUEFSUMMENBYTE LOESCHEN 
#$07+COMPU 


; PROGRAMM AUF BAND SCHREIBEN 


#$503+LOMPU 


$AC 
NOHI 
$AD 


SAC 
ENDVEC 
SAD 


ENDVEC+1 


PRGLOOP 


PSUMME 
WBYTE 


; PROGRAMMZEIGER ERHOEHEN 


; PROGRAMMENDE EREICHT 


; NEIN => WEITER 


; PRUEFSUMME SCHREIBEN 


#507 +CD0MPU 


LOOP4 


MOFLAG 
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; MOTOR AUSSCHALTEN VORBEREITEN 


PROFI-ASS 564 V2.0 


2348: 
23590: 
2340: 
2370: 
2372: 
2372: 
2373: 
2374: 
2374: 
2375: 
2380: 
2590: 
2400: 
2410: 
2420: 
2430: 
2440: 
2450: 
2460: 
2470: 
2480: 
2481: 
2481: 
2482: 
2484: 
2484: 
2498: 
75900: 
2510: 
2520: 
25359: 
2540: 
2559: 
2560: 
2570: 
25880: 
2581: 
2581: 
2582: 
2584: 
2584: 
25970: 
2680: 
2619: 
2620: 
2630: 
2640: 
2690: 
2660: 
2662: 
2662: 
2664: 
zu6b6: 
2666: 
2670: 
2680: 
26970: 
2700: 
2719: 


COF53 
CoF4 
COF& 
COFY 
COFC 
COFC 


COFC 
COFC 
COHFC 
CöFF 
ci1ei 
c103 
C19& 
c108 
C10B 
c1oC 
C10E 
C1oF 
c111 
c1ii12 
c113 
Cc113 


C113 
c115 
c113 
cC115 
c117 
c11A 
ciilc 
Ci11D 
ciiF 
c121 
c123 
C125 
c127 
127 


C127 
C127 
C127 
c128 


C1iZB. 


Cc12D 
C1ZE 
C130 
c131 
c132 
C133 
C1335 


C153 
C13535 
C1355 
C135 
C137 
C13597 
C15B 


00 
AO 
95 


33 
87 


F7 


BD 
D7 
D7 
08 
AS 


82 
FC 


AB 


De 


De» 


ci 


c1 


SEITE 5 


ELC 
LDA 
sTA 
JMP 


#500 
IROFLG 
ENDEN 


MOTOR STARTEN 


MOTOR 


ANLOOP 


JSR 
LDY 
STY 
LDA 
AND 
sSTA 
DEX 
BNE 
DEY 
BNE 
SEI 
RTS 


STOP 
#500 
MOFLAG 
$D011 
#$EF 
$Do1ll 


ANLOOP 


ANLODP 


BILDSCHIRM AUS 
ENTFAELLT BEI 

vVC 20 

WARTET BIS MOTOR HOCH 
GELAUFEN IST 


; SYNCHRONISATION GENERIEREN 


SYNCH 
LOOPS 


LDY_ 


LDA 
JSR 
LDX 
DEY 
CPY 
BNE 
LDX 
DEC 
BNE 


#500 

#502 3 
WBYTE 
#$07+COMPU 


#509 

LOOPS 
#$05+LCDMPU 
&AB 

LOOPS 


; COUNTDOWN SCHREIBEN 


COUNTS 


TYA 
JSR 
LDX 
DEY 
BNE 
DEX 
DEX 
RTS 


WBYTE 
#07 +COMPU 


COUNTS 


STARTBYTE 255-9 MAL SCHREIBEN 


;ı BYTEWERT 


CDUNTDOWN 


;BYTE AUF BAND SCHREIBEN 


WBYTE 


STA 
EOR 
STA 
LDA 
STA 


$BD 
PSUMME 
PSUMME 
#508 
BITC 
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PROFI-ASS 64 V2.0 


2720: C1S3SD 06 BD 
27306: C1SF AS 81 
27490: C141 29 F7 
275980: C143 20 55 cC1 
276080: C146 AZ il 
2770: C148 EA 
27808: C149 09 08 
2790: CI1AB 20 55 C1 
2800: CI14E A2 0E 
2810: C150 Ch A3 
2820: C152 DO EF 
2830: C154 50 
2840: C155 CA 
850: C156 DO FD 
28689: C158 90 05 
2870: C1SA AZ 9B 
2880: CI1SC CA 
2890: C1SD Do FD 
290086: LCIiSF 85 01 
2902: Ci161 49 
2905: C162 

2995: Cis2 

2994: C162 

29904: C162 

2905: 

2906: C162 

2906: C162 

2909: 

2910: Ci162 AS 2D 
2911: Ci164 38 
2912: C165 EI 092 
2912: C167 AB 
2912: C168 AS 2E 
2912: Ci6A EI 80 
2913: Cis6C A2 0908 
2914: CIiöE FO 097 
2915: C170 

2915: C170 

2916: C170 

2916: C170 

2917: 

2918: C170 

2918: C179 

2919: C170 

2919: C170 

2920: C170 A2 00 
2925: C172 2C 
29390: C173 AZ 01 
29408: C175 A4 2B 
2950: C177 AS ZC 
29606: C1797 86 OA 
2979: C17B 854 953 
2975: C17D AZ 00 
2980: LUC17F 86 982 
2985: C181 84 CS 
2990: C183 85 C4 
300808: C185 20 Bo C2 
3010: C188 20 8E Ci 
3920: C18B AC 7A Ei 


SEITE & 


SHIFT 


T1LOOP 


T2ZLOOP 


BIT® 


; MERGE 


; MERGE 
MERGE1 


;LADEN 


LOAD 


VERIFY 


MERGE2 


ASL BD 

LDA PORT 

AND #%F7 

JSR TI1LOOP 

LDX #$11+CO0MPU 

NOP 

ORA #$08 

JSR T1LDOP 

LDX #30E+COMPU 

DEC BITC 

BNE SHIFT 

RTS 

DEX 

BNE TILOOP 

BCC BIT ;s WENN CARRY GESETZT, 
LDX #%0B ;s DANN ZEITSCHLEIFE 
DEX ; VERLAENGERN 

BNE TZLOOP 

STA PORT 

RTS 

LDA %2D 

SEC 

SBC #2 

TAY 

LDA $2E 

SBC #90 

LDX #0 

BEQ MERGEZ 

LDX #300 

.„ BYTE$2C 

LDX #$01 

LDY %$2B ; BASICSTARTVECTOREN IN 
LDA $2C ; STARTSPEICHERSTELLEN 
STX $9A ;» LOAD FLAG (8=LOAD/1=VERIFY) 
STX %95 ; SETZEN 

LDX #0 

STX ABSFLG ; ABSOLUTFAG LOESCHEN 
STY STARTV 

STA STARTV+1 

JSR GETPARA 

JSR LOADR ; LOAD UND VERIFY 
JMP X BEFEND 


94 


PROFI-ASS 64 V2.0 


3822: CI1B8E 

53822: CISE 

3024: 

3026: CIBSE 

3626: CISE 

30480: CI18SE 20 ®A 
3@50: C191 AS AB 
3060: C1975 C7 82 
380780: C195 FO 08 
530889: C197 C9 81 
3098: C197 DO F3 
35100: C19B AS BY 
3119: C19D Fo 16 
5112: C19F AI 02 
31135: Ci1A1 05 82 
3114: C1A3S 85 02 
31280: C1A5S AD SC 
3130: C1A8B 85 C3 
31480: CiAA AD 3D 
5150: C1AD 85 C4 
3155: CIiAF 20 02 
3156: Ci1B2 AS 02 
3157: C1B4A 29 94 
3158: C1Bö& DO 08 
3160: C1B8B 20 50 
3170: CI1BB 20 E4 
3180: CIBE FO FB 
3198: C1CO 28 2C 
32080: CIiC3 AA B7 
3219: CI1C5 F® OB 
32280: C1C7 88 
32350: C1C8 Bi BB 
3240: CI1CA DI 41 
5250: CIiCD DO BF 
3260: CICF 98 
3270: C1iD® DO FS5 
3280: C1D2Z 84 90 
3298: C1D4 20 D2 
3300: C1D7 AD 3E 
3310: C1DA 38 
33520: CI1DB ED SC 
535350: CIiDE 88 
3548: CIiDF 18 
3550: CIE 45 C3 
3560: CIiE2 85 AE 
3370: CI1E4 AD SF 
3580: CI1E7 65 CA 
33590: TCI1EY 28 
34980: CI1EA ED SD 
3410: CI1ED 85 AF 
3420: CI1EF 208 IF 
34590: CIF2 AS BD 
3440: CiF4 45 D7 
34590: CIiF6& 05 90 
34680: CI1FB FO 84 
3470: CIiFA AI FF 
3475: CIFC 85 978 
5480: LCIFE AS 82 
3484: C208 DO 03 


c2 


85 


0853 


E53 


F7 
FF 


AB 


85 


05 


[2 


SEITE 7 


; LADEROUTINE 


JSR 
LDA 
CMP 
BEQO 
CMP 
BNE 
LDA 
BEO 
LDA 
ORA 
STA 
LDA 
STA 
LDA 
sSTA 
JSR 
LDA 


LOADR 


ABSOL 


RELLOD 


AND 


BNE 
JSR 
JSR 
BEQ 


WAIT 


NOWAIT 
LDY 
BEQ 
DEY 
LDA 
CMP 
BNE 
TYA 
BNE 
STY 
JSR 
LDA 
SEC 
SBC 
PHP 
ELC 
ADC 
STA 
LDA 
ADE 
PLP 
SBC 
STA 
JSR 
LDA 
EOR 
ORA 
BEQ 
LDA 
STA 
LDA 
BNE. 


TESTNA 


NONAME 


OK 


JSR 


SSYNCH 
$AB 
#502 


ABSFLG 
CASPUF 
STARTV 
CASPUF+1 
STARTV+1 
ADTEST 
ABSFLG 
ie 
NOWAIT 
FOUND 
GET 
WAIT 
STOP 
$B7 
NONAME 


($BB) ,Y 


on. u we 


an 08 8 


was 


a 


IST PRG ABS. GESPEICHERT 
=> ABSOLUT LADEN 
BYTE NICHT 1 => WEITERSUCHEN 


SEKUNDAERADRESSE = @ 
=> VERSCHIEBLICH LADEN 
ABSOLUTFLAG SETZEN 


STARTADRESSE AUS PUFFER 
IN STARTVECTOR 


TEST AUF "WARTEN? 


FOUND ”’NAME?’” AUSGEBEN 


ENTFAELLT BEI 
VC 20 
FILENAMENLAENGE 


FILENAMENTESTEN 


CASPUF+5,Y 


LOADR 


TESTNA 
STATUS 
LOADING 
CASPUF+Z 


CASPUF 


STARTV 
ENDVEC 
CASPUF +3 
STARTV+1 


CASPUF+1 
ENDVEC+1 
PLOAD 
$BD 
PSUMME 
STATUS 
OK 

#$FF 
STATUS 
ABSFLG 
ALTADR 
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. 1. 


on. w: 


a. 


STATUS LOESCHEN 


; ENDADRESSE BERECHNEN 

AUS DIFFERENZ START- + ENDADR. 
AUS DEM HEADER 

PLUS BESTIMMTER 

STARTADRESSE 


PRUEFSUMME TESTEN 


FLAG TESTEN 
WENN GESETZT=> ALTE ENDVEETORE 


PROFI-ASS 64 V2.0 SEITE 8 


3486: [202 AC A9 FS JMP  STOEND ; ERHALTEN 

3488: C205 A6& 2D ALTADR LDX $2D 

3498: C287 A4 ZE LDY $2E 

3492: C209 60 RTS 

3598: C20A 28 58 C2 SSYNCH JSR SCOUNT 5; SYNCHRONISATION SUCHEN 
3510: C20D C97 09 CMPU #00 ;s SYNCHR. VOR HEADER => 
353280: C20F Fö F9 BEQ SSYNCH 5 SYNCH NACH HEADER SUCHEN 
3550: C211 85 AB STA $AB s SEKUNDAERADRESSE + 1 
3540: C213 20 85 C2 SPSTART JSR HOLBYT 5; START DES PROGRAMMS 
3550: C216 91 B2 STA ($B2),Y ; SUCHEN 

3560: L[C218 CB INY 

3570: C219 CO CO ECPY #$C0 

3580: C21B D6 Fö BNE SPSTART 

3590: C21D FO 2D BEQ GEFUN ; ENDE VORSPANN, PRG LADEN 
3688: C21iF 20 58 C2 PLOAD JSR SCOUNT ; PROGRAMM LADEN 

36180: C222 28 85 C2 LLOOP JSR HOLBYT 

36206: C225 C4 953 EPY $93 

3650: C227 Da 02 BNE VERGL ; BEI VERIFY NUR VERGLEICHEN 
36489: C229 91 C5 STA (STARTV),Y 

36590: C22B Di C53 VERGIL_ CMP U (STARTV),Y 

3668: C2R2ZD FO @2 BEQ GLEICH 

3670: UR2F 86 90 STX STATUS 

3680: C231 45 D7 GLEICH EOR PSUMME 5; PRUEFSUMME BERECHNEN 
3690: C233 85 D7 STA PSUMME 

3708: C235 Eö C5 INC STARTV 5; ADRESSE ERHOEHEN 
3718: C237 D® 02 BNE NOTHI 

3720: C237 E& C4 INC STARTV+1 

3730: C23B AS C3 NOTHI LDA STARTV 

3740: C23D C5 AE EMP | ENDVEC ; ENDADRESSE ERREICHT 
3750: C23F AS C4 LDA STARTV+1 

3768: C241 ES AF SBC ENDVEC+ 

37780: C2453 90 DD BCC 2 LLOOP ; NEIN => WEITER 

37808: C245 20 86 C2 JSR HOLBYT 

37980: C248 20 FC CO JSR MOTOR 

53800: C24B C8 INY 

38190: C24C 84 CO GEFUN STY MOFLAG 

3820: C24E 58 CLI 

3850: C24F 18 ELC 

5840: C250 A9 00 LDA #300 

3850: C25Z 8D AO 02 STA IROFLG 

38680: C255 46 95 FC JMP ENDEN 

38790: C258 280 17 F8 SCOUNT JSR PTASTE 5; COUNTDOWN SUCHEN 
38890: C2ZSB 20 FC Ca JSR MOTOR N 

3890: UC2SE 84 D7 STY PSUMME ı 

397908: C268 AP 07 LDA #%07 ; ($27) WERT FUER TIMER LO 
3910: C262 BD 84 DD STA CIA1+& ; (PORT+8) IN TIMER LO 
3920: C265 AZ ei LDX #%01 ; WERT FUER TIMER HI 
3930: C267 20 97 C2 SSTART JSR HOLBIT ; START SUCHEN 

39480: C26A 26 BD ROL $BD 

3958: UC26C AS BD LDA %BD 

3960: LC26E C9 082 EMPUOX9#$02 ;> START GEFUNDEN 

39780: C270 DO F5 BNE SSTART 

3780: C272 AB 09 LDY #309 ; => ECDUNTDOWN SUCHEN 
3990: C274 20 86 C2 ENDEZ JSR HOLBYT ; ENDE DER ’2°” — BYTES 
48980: UC277 C9 02 CMPU4#%$902 ;s SUCHEN 

4010: C2797 FO F? BEQ ENDE2 

4020: C27B C4 BD CODUNTL ECPY $BD ; TESTET DEN COUNTDOWN 
4050: C27D DO E8 BNE SSTART 

4040: LC27/F 28 86 C2 JSR 2 HOLBYT 
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FROFI-ASS 64 V2.0 


4050: 
40960: 
4070: 
4072: 
4972: 
4075: 
4076: 
4076: 
4980: 
4090: 
4100: 
4110: 
4120: 
4130: 
4140: 
4150: 
4160: 
4170: 
4180: 
4182: 
4182: 
4184: 
4185: 
4185: 
4190: 
4200: 
4210: 
4220: 
4225: 
4230: 
4240: 
4250: 
4260: 
4270: 
4280: 
4290: 
4300: 
4310: 
4310: 
4320: 
45330: 
4330: 
4340: 
4350: 
4360: 
4370: 
4380: 
4590: 
4409: 
4410: 
4420: 
4430: 
4432: 
4432: 
4435: 
44536: 
44536: 
4450: 
4460: 


[282 
6283 
C285 
C286& 
C286& 


C286 
C286 
C2896 
c288 
E28A 
C28D 
c29F 
Cc298 
c291 
292 
c294 
296 
c298 
C2997 
C2977 


C299 
C2997 
c299 
C29B 
C29E 
C2AO 


CAS 
C2A& 
C2A7 
C2A9 
CZAC 
EC2ZAD 
CZAE 
CZAF 
C2Bö 


88 
Do 
68 


C2BO 


C2Bö 
C2B6 


C2B0 
C2Bo 


C2B® 
C2BO 


C2Bö AF 00 


C2B2 


Fö 


08 
AS 
99 
BD 


A3 
F4 
BD 


c2 


20 BD FF 


SEITE 7 


DEY 
BNE 
RTS 


COUNTIL 


; BYTE VON BAND HOLEN 


HOLBYT LDA 
STA 
SHIFT7 JSR 
ROL 
NOP 
NOP 
NOP 
DEC 
BNE 
LDA 
RTS 


#508 
BITC 
HOLBIT 
$BD 


BITC 
SHIFT7 
$BD 


8 BIT 


SCHIBT CARRY IN EINGABEPUFFER 


;s BIT VON BAND HOLEN FUER C-64 


HOLBIT LDA 
WAITDA BIT 
BEQ 
LDA 
s => BIT11I 
STX 
PHA 
LDA 
STA 
PLA 
LSR 
LSR 
RTS 


s "HOLBIT’ F 


;HOLBIT LDA 
sWAITDA BIT 
3 BEQ 
LDA 
STX 
BIT 
ASL 
ASL 
ASL 
RTS 


a. 8 


#510 
CIA2+13 
WAITDA 
CIA1+153 
ST GEZT 
CIAl+7 


#519 
CIA1+15 


A 
A 


UER VCE20 


#392 
PORT+13 5 
WAITDA 
PORT+13 
PORT+Y7 ; 
PORT+1 


; PARAMETER HOLEN 


GETPARA LDA #90 
JSR SETNAM 
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a. “8 u 


sWARTET AUF SIGNAL AN ”’FLAG” 
; ICR LADEN. HAT TB 8 ERREICHT 
WERT IN TB HI 

ICR RETTEN 

TB STARTEN, EINMALIGES ZAEHLEN 


ICR HOLEN 
BIT 1 INS CARRY SCHIEBEN 


IFR BIT 1 TESTEN 


TIMER HI SETZEN 


PROFI-ASS 64 V2.0 


4470: 
4480: 
4490: 
4510: 
4520: 
4540: 
4530: 
4560: 
4570: 
4580: 
4600: 
4610: 
4620: 
4622: 
4624: 
4630: 
4632: 
4654: 
4650: 
4660: 
4670: 
4672: 
4674: 
4680: 
4685: 
46590: 
4695: 
4700: 
4710: 
4720: 
4730: 
4740: 
4730: 
4760: 
4770: 
4780: 
4770: 
48009: 
4810: 
49820: 
4830: 
4840: 
4940: 
4940: 
4945: 
4945: 
4950: 
4979: 
4970: 
590008: 
5010: 
5920: 
3030: 
50640: 
3950: 
59608: 
599070: 
5980: 
58853: 


C2B5 
C2B7 
C2B7 
C2ZBC 
C2BF 
c2C2 
C2C5 
C2C8 
C2C9 
ECZCA 
C2CD 
C2D® 
C2D3 
C2D5S 
C2D7 
C2D7 
CZDR 
C2DD 
C2ZDF 
C2ZE2 
C2ES 
C2ZE7 
C2E? 
ECZEB 
CZED 
CZEF 
CcZFi 
C2F3 
Cc2F4 
C2F7 
EC2ZFA 
CZFD 
CZFF 
C501 
C502 
C394 
[505 
C398 
E50A 
C359C 
ECS5®E 
C316 
c511 
c511 
c3511 
c311 


c511 
c511 
c5311 
c514 
C515 
C518 
C51B 
C51D 
ES1F 
C321 
5253 
[3525 


AZ 
AO 
28 
20 
20 
20 
20 
BA 
AB 
20 
20 
20 
86 
86 
84 
84 
Az 
86 
20 
20 
94 
95 
84 
84 
AS 
87 
85 
68 
20 
20 
20 
Ab 


ol 
00 
BA 
05 
37 
06 
00 


26 


2C 


FF 
E2 
E2 
E2 
E2 


FF 
E2 
c2 


E2 
[2 


E2 
AD 
B7 


BS 


SEITE 18 


HOLWERT 


ADTEST 


NORM 


LDX 
LDY 
JSR 
JSR 
JSR 
JSR 
JSR 
TXA 
TAY 
JSR 
JSR 
JSR 
STX 
STX 
STY 
STY 
LDX 
STX 
JSR 
JSR 
STX 
STX 
STY 
STY 
LDA 
ORA 
STA 
RTS 
JSR 
JSR 
JSR 
LDX 
LDY 
RTS 
LDA 
AND 
BEQ 
LDA 
STA 
LDA 
sSTA 
RTS 


; DATASAVE 


DASAVI 


ULOOP 


JSR 
LDX 
STX 
JSR 
LDA 
sTA 
LDX 
LDA 
STA 
STA 
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#1 F 
#00 
SETLFS 
WZEICH 35 
HFNAM 
WZEICH 
HOLPAR 


SETLFS 
WZEICH 
HOLWERT 
$AC 

$A7 

SAB 

$AD 

#1 
ABSFLG 
WZEICH 
HOLWERT 
$AE 

$A? 

SAA 

SAF 
ABSFLG 
#2 
ABSFLG 


7 u" 7 7 


CHRIN 
FRMNUM 
FACINT 
$14 
$15 


ABSFLG 5 
#1 

NORM 3 
$AC 
STARTV 
$AD 
STARTV+1 


GABCOL 
#5 

$AB 
GETPARA 
#1 ; 
$B9 
#4 
$2C,X 
$AB,X 
$A6,X 


DEFAULT FUER GA 
DEFAULT FUER SA 


WEITERE ZEICHEN 


FLAG FUER AN BESTIMMTE 
ADRESSE LADEN UND RETTEN 


NAECHSTEN WERT HOLEN 
AUSDRUCK AUSWERTEN 
IN 2BYTE WERT UMRECHNEN 


FLAG LADEN 


UNGLEICH => NORMAL LADEN 


sA=1 


VARIABLEN START- UND 
ENDADRESSEN UMSPEICHERN 


PROFI-ASS 64 V2.0 


3090: C327 CA 
51900: (328 DO F7 
3118: C32A 20 7F 
s112: CS32D AZ 00 
3114: CS2F 86 B7 
3115: C3531 A2 95 
5117: C3353 86 AB 
3119: 335 CA 
31560: C336 BS ZE 
3140: C338 95 AB 
3145: C33A 95 Ad 
3190: C33C CA 
5156: C335D DO F7 
3170: CSS3F 28 7F 
5175: C342 A2 05 
3177: C344 86 AB 
3170: C546 AS 33 
3280: C348 Ad 34 
35218: C354A 85 AC 
3215: C354C 85 A7 
3220: US3S4E 86 AD 
32259: 6350 85 AB 
250: 6352 AS 37 
3240: C354 Ad 38 
3250: C356 85 AE 
3299: 0358 85 A9 
3260: C35A 864 AF 
3265: C35C 8564 AA 
32780: LCSSE 4C 7F 
33590: CI361 

35800: C361 

3595: C561 

35905: C361 

5310: 

33520: UC3561 

33280: U361 

3410: CS361 20 Bö 
3420: UC364 AF 01 
34306: C366 85 82 
5440: CU368 AS 2D 
5450: UCS3S6A Ad ZE 
34608: C356C 85 AC 
34780: CS6E 86 AD 
5480: C37@ 20 BE 
3482: 10373 AI 05 
s486: [375 85 82 
34980: [377 AF 00 
3000: [377 85 B7 
3919: C37/B Aö& AE 
3320: C37D A4 AF 
33950: CS357F 864 ZF 
3540: C381 84 530 
3990: 13853 854 AC 
S068: C385 84 AD 
3976: C3987 20 8E 
3580: C3B8A Ad AE 
2370: C38C A4 AF 
36080: CSBE 84 51 
36180: U5390 84 32 


SEITE 11 


U2ZLOOP 


ce 


Ce 


DEX 
BNE 
JSR 
LDX 
STX 
LDX 
STX 
DEX 
LDA 
STA 
STA 
DEX 
BNE 
JSR 
LDX 
STX 
LDA 
LDX 
STA 
STA 
STX 
STX 
LDA 
LDX 
STA 
STA 
STX 
STX 
JMP 


; DATALOAD 


C2 DATLOD 


ci 


ci 


JSR 
LDA 
STA 
LDA 
LDX 
STA 
STX 
JSR 
LDA 
sSTA 
LDA 
STA 
LDX 
LDY 
sTX 
STY 
STX 
STY 
JSR 
LDX 
LDY 
STX 
STY 


ULODOP 

ABSOLUT 3; ABSPEICHERN 

#0 

$B7 ; KEIN FILENAME 

#5 

$AB 

$2E,X ; ARRAY START- UND 

$AB,X ; ENDADRESSEN UMSPETCHERN 
$NA6,X ; ENDADRESSEN UMSPEICHERN 
UZLOOP 

ABSOLUT 3; ABSPEICHERN 

#5 

$AB 

+33 ;s STRING START- UND 

+54 3 

$AC 

$A7 

$AD 

AB 

537 ; ENDADRESSEN UMSPEICHERN 
+58 3 

$AE 

+7 

SAF 

AA 

ABSOLUT 3; ABSPEICHERN 

GETPARA 

#1 ;s AN BESTIMMTE ADRESSE LADEN 
ABSFLG 

$2D sı VARIABLENSTARTADRESSE ALS 
$2E ;s STARTADRESSE 

$AC ; UMSPEICHERN 

$AD 

LOADR ; LADEN 

#4+1 ; NICHT WARTEN, AN BESTIMMTE 
ABSFLG ; ADRESSE LADEN 

#0 

$B7 ;ı KEIN FILENAMEN 

$AE ; VARIBLENENDE 

$AF 

$2F ; IN VEKTOR 

+50 

SAC ;s UND LADESTARTVEKTOR 

$AD 

LOADR ; LADEN 

$AE ; ARRAYENDE 

SAF 

$31 ; IN VEKTOR 

52 
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PROFI-ASS 64 V2.0 


3626: C392 
3650: 1394 
2649: 1396 
3642: C399 
3642: CS39C 
3644: USYE 
5644: CSA 
3650: US35AS 
5668: CSA& 
3670: EU3AB 
3689: US3AA 
3698: CSAC 
37086: CSAF 
57180: CS3B1 
57290: C3B3 
3730: CSBS 
53730: C3B7 
37480: USB? 
UC009-C35BA 


SEITE 12 


NOFEHL 


LDA 
sTA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
AND 
BEOQ 
LDX 
JMP 
LDX 
STX 
LDA 
sSTA 
sSTA 
RTS 
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#4 ;» VON ADRESSE VOM HEADER 
ABSFLG ; LADEN 

LOADR ;s LADEN 

CASPUF 

%35 

CASPUF+1 

554 

HOLSTA ; STATUS HOLEN 

$BF s EOF-BIT LOESCHEN 
NOFEHL ; KEIN FEHLER 

#$1D ;s OFFSET FUER ’LOAD ERROR” 
FEHLAUS ; FEHLER AUSGEBEN 

#519 ;s STRING-DESCRIPTOR 

$16 ; INDEX RUECKSETZEN 

400 

$5A 

$10 ;CONT SPERREN 


FHRFERREERRERERR IKT RR FRI HH KHK KH N IH NH HH TH TH NN I HH FH KK FT KHK NH 
108 REM BASICLOADER FT2® 
ERRRRHBRHRRSIHRRRIRIHRIRISIHHISIHIBIIHIRISIRIHISIHIHIRIHISIISISIHIBIISIHISIHIRIHIIIIIIHEIERE 

118 E=29611:A=28672:PS=8 

120 FOR I=A TO E:READ X:POKE 1,X:PS=PS+X:NEXT 

138 IF PS<>1147&8 THEN PRINT"FEHLER IN DATAS":END 

140 POKE 55,@:POKE 56,112 

158 SYS A:zNEW 

1608 DATA 169,11,141,8,3,169,112,141,9,3,96,32,115,0,248, 
4,201, 95,240, 3,76, 231 

178 DATA 199,32,115,0,32,32,112,76,174,199,162,0,221,84, 
112,240, 8,232, 228,4 

180 DATA 208, 246, 76,8,207,138,10,179,189,98,112,72,189,8 
9,112,72,76,115,8,201 

190 DATA 83,240,7,201,76,240,9,76,8,207,32,115,0, 76,3, 11 
5,32,115,0,76,83,115 

200 DATA 83,76,86,77,68,98, 112,105, 113,188, 113,91,113,68, 
112,162,5,134, 171,162 

218 DATA 0,134,2,32,162,114,165,2,41,2,2808,11,162,4,181, 
42,149,171,149,166, 202 

220 DATA 208, 247,32,183,248,32,40,247,32,252,112,32,11,1 
13,165, 185,24, 105,1 

230 DATA 202,32,43,113,162,19, 185, 167,0,32,43,113,162,8, 
200, 192,5, 234,208, 242 

248 DATA 160,0,162,6,177,187,196,183,144,3,169,32, 202,32, 
43,113,162,5, 200,192 

250 DATA 187,208, 237,169, 2,133,171,32,11,113,152,32,43,1 
13,132, 215,162, 9,234 

268 DATA 177,172,32,43,113,162,5, 230, 172,208, 4,230, 173,2 
02,202, 165, 172,197,174 

270 DATA 165, 173,229,175,144, 231,234, 165, 215,32,43, 113,1 
62,9, 136, 208, 246, 200 

280 DATA 132,192,88,24,169,0,141,160, 2,76, 207,252,32,44, 
200,160, 0,132, 192,202 

290 DATA 208, 253,136, 208, 250, 120,96, 160,0,169,2,32,43, 11 
3,162,9,136, 192, 9,208 

3080 DATA 244,162,7,198,171,208,238,152,32,43,113,162,9,1 
36, 208, 247,202, 202,96 


101 


31®@ 


349 


330 


360 


370 


380 


390 


4090 


410 


420 


450 


440 


450 


460 


470 


480 


490 


300 


DATA 133,189,69,215,133,215,169,8,133, 163,6, 189,173, 
32,145,41,247,32,78 

DATA 113,162,19,234,9,8,32,78,113,162,16,198, 163,208, 
232, 96,202, 208, 253 

DATA 144,5,162,11,202, 208, 253,141,32,145, 96,165, 45,56 
„233,2,168,165, 46,233 

DATA 0,162,0,240,9,162,0,44,162,1,164,43,165,44,134, 
10,134,147,162,0,134 

DATA 2,132,195,133,196,32,162,114,32,136, 113, 76,119, 
225,32,255,113,165, 171 

DATA 201,2,240,8,201,1,208, 243, 165,185, 240,16,169,2, 
5,2,133,2,173,60,3,133 | 
DATA 195,173,61,3,133,196,32,244,114,165,2,41,4,268, 
3,32,211,247,32,44, 200 | 

DATA 164,183, 248,11,136,177,187,217,65,3,208,196,152, 


708, 245,132,144,32 


DATA 106, 246, 173,62,3,56,237,60,3,8, 24, 101,195, 133,1 

74,173,63,3,181,196 

DATA 40,237,61,3,133, 175,32, 2@, 114,165, 189,69, 215,5, 

144, 240,4,169, 255,133 

DATA 144,165, 2,208,3,76,65,246,166,45,164,46, 96, 32,7 
7,114, 201,0, 240,249 

DATA 133,171,32,123,114,145, 178,200, 192,192,208,246, 

240, 45,32, 77,114,32 

DATA 123,114,196, 147,208, 2,145, 195, 209,195, 240,2,134, 
144,69,215,133, 215 

DATA 230, 195,208, 2,230, 196, 165, 195, 197,174,165,196, 2 
29,175,144, 221,32, 123 

DATA 114,32,252,112,200,132,192,88,24,169,0,141,166, 

2,76,207,252,32,148 

DATA 248,32, 252,112, 132,215,169,39,141,40,145,162,1, 

32,142,114,38,189,165 

DATA 189, 201,2,208,245,160,9,32,123,114,201,2,240, 24 
7,196, 189,208, 232,32 

DATA 123,114,136, 208,246, 96,169,8,133,163,32,142,114, 
38, 189, 234, 234, 234 

DATA 198,163, 208, 244, 165,189, 96,169,2,44,45,145, 240, 

251,173,45,145,142,41 

DATA 145,44,33,145,10,10,10,96,169,8,32,189, 255,162, 

1,160,0,32, 186, 255,32 


102 


368 


370 


380 


270 


609 


618 


620 


530 


640 


DATA 3,226, een. 
186, 255, 32,3,226, 
DATA 230,114,134,172,134,167,132,168,132,173,162,1,1 
34,2,32,3,226,32,230 

DATA 114,134,174,134,169, 132,170, 132, 175,165, 2,9, 2,1 
33,2, 96, 32,11, 226,32 

DATA 158, 205,32, 247,215,166, 20,164, 21,96,165,2,41,1, 
240,8,165,172,133,195 

DATA 165,173,133, 196,96, 32,38, 213,162,5,134,171,32,1 
62,114,169,1,133,185 

DATA 162,4,181,44,149,171,149, 166, 202,208, 247,32,127, 
112,162,0,134,183,162 

DATA 5,134, 171,202,181,46, 149, 171,149, 166, 202, 208, 247 
‚„32,127,112,162,5,134 | 

DATA 171,165,51,166,52,133, 172,133, 167,134, 173,134,1 
68, 165,55, 166,56, 133 

DATA 174,133,169,134,175,134,170,76,127,112,32,162,1 
14,169, 1,133,2,165,45 

DATA 166,46,133,172,134,173,32,136,113,169,5,133, 2,1 
69,0,133,183, 166,174 

DATA 164,175,134,47,132,48,134,172,132,173,32,136, 11 
3,166, 174,164,175,134 

DATA 49,132,50,169,4,133,2,32,136,113,173,60,3,133,5 
1,173,61,3,133,52,32 

DATA 183, 255,37,191,240,5,162,29, 76,55, 196,162, 25,13 
4,22,169,8,133,58,133 

DATA 16,96 


u 
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1800 


REM LOADER FT&4 
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1810 


1920 


1030 


1949 


10900 


19918 


19920 


10930 


19040 


19950 


10960 


190070 


109808 


19990 


19100 


10110 


10120 


18130 


10140 


10150 


E=58105: A=49152: PS=8 

FOR I=A TO E:READ X:POKE 1,X:PS=PS+X:NEXT 

IF PS<>120584 THEN FRINT"FEHLER IN DATAS":END 
Sys A | 

DATA 169,11,141,8,3,169,192 
4,201,95,240,3,76, 231 

DATA 167,32,115,0,32,32,192,76,174,167,162,0,221,84, 
192,240, 8,232, 728,4 

DATA 208, 246, 76,8,175,138, 10, 170,189, 90,192,72,189,8 
9,192,72,76,115,0,201 

DATA 83,249,7,201,76,240,9,76,8,175,32, 
95,32,115,®,76,97,195 

DATA 93, 76,86, 77,68,98,192,111,193,114,193, 97,193, 60, 
192,162,5,134,171,162 

DATA 9,134,2,32,176,194,165,2,41,2,208,11,162,4, 181 ,\_ 
42,149,171,149, 166, 202 

DATA 208, 247,32,56, 248,32, 143, 246, 32,252, 192,32, 
93,165, 185, 24,185,1 

DATA 202,32,51,193, 162,8, 185, 167,0,32,51,193, 162,6, 2 
00,192,5, 234, 208,242 

DATA 160,0,162,4,177,187,196, 183, 144,3, 169,32, 202,32, 
51,193, 162,5, 208,192 | 
DATA 187,208, 237,169, 2,133,171,32, 
93,132,215,162, 7,234 

DATA 177,172,32,51,193,162,3, 230, 172, 208,4, 230,173, 2 
02, 202,165,172,197,174 

DATA 165,173, 229,175, 144,231,234,165,215,32,51,193,1 
62,7,136, 208, 246, 200 

DATA 132,192,88,24,169,0,141,160,2,76,147,252,32,44, 
168,160, 8,132, 192,173 

DATA 17,208,41,239,141,17,208, 202, 208, 253, 136, 208, 25 
0,120,96,160,0,169,2 

DATA 32,51,193,162,7,136, 192,9, 208, 244, 162,5, 198,171, 
208, 238,152, 32,51,193 

DATA 162,7,136, 208, 247, 202,202, 96,133,189,69, 215,133 


„141,9,3,96,32,115,0,240, 


115,0, 76,17,1 


19,1 


19,193,152,32,51,1 
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‚215,169,8,133,163,6 

18160 DATA 189,165,1,41,247,32,85,193,162,17,234,9,8,32,85, 
193,162,14,198,163 

10170 DATA 208, 233,96, 202,208, 253,144,5,162, 11,202, 208, 253 
‚„133,1,96,165,45,56 

10180 DATA 233,2,168, 165,46, 233,0,152,0,2480,9,162,0,44,162, 
1,164,43,165,44,134 

18190 DATA 10,134, 147,162,0,134,2,132,195,133,196,32,176,1 
94,32,142,193,76, 122 

10208 DATA 225,32,10,194,165,171,201,2,240,8,201,1,208,243, 

165,185,240,16,169 

182180 DATA 2,5,2,133,2,173,60,3,133,195,173,61,3,133,196,32 
„2,195,165,2,41,4,20@8 

10220 DATA 8,32,80, 247,32, 228, 255,240, 251,32,44,168, 164,183 
„240,11,136,177,187 

10250 DATA 217,65,3,208,191, 152,208, 245,132, 144,32, 210,245 
„173,62, 3,56, 237,60 

10246 DATA 3,8,24, 101,195, 133,174,173,63,3,101,196, 40,237, 
61,3,133,175,32,31,194 

19250 DATA 165, 189,69,215,5, 144,240, 4,169, 255,133,144,165, 
2,208,3,76,169, 245,166 

10260 DATA 45,164,46, 96, 32,88, 194, 201,0, 240,249, 133,171,32, 
134,194, 145,178, 280 | 

10270 DATA 192,192,208, 246, 240,45,32,88,194,32,134,194, 196 
„147,208, 2,145, 195, 209 

10280 DATA 195,240,2,134, 144,69, 215,133, 215, 230, 195, 208,2, 
230,196, 165, 195,197 

10290 DATA 174,165, 196, 229,175,144,221,32,134, 194,32, 252,1 
92,200, 132,192,88,24 

10300 DATA 169,0,141,160,2,76, 147, 252,32, 23, 248,32, 252,192, 
132, 215,169, 7,141,6 

10310 DATA 221,162,1,32,153,194,38, 189,165, 189, 201,2,208,2 
45,160, 9,32,134,194 

10320 DATA 201,2,240, 249,196, 189, 208, 232,32, 134,194, 136,20 
8,246, 96, 169,8,133, 163 

193350 DATA 32,153,194,38,189, 234,234, 234,198, 163,208, 244,1 
65,189, 96,169,16,44 

10348 DATA 13,220, 240, 251,173,13,221,142,7,221,72,169,25,1 
41,15,221,104,74,74 

10350 DATA 96,169,0,32,189,255,162,1,160,0,32, 186, 255,32,6, 
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226,32,87,226, 32,6 

10340 DATA 226,32,0,226,138, 168,32, 186, 255,32, 6,226, 32,244 
„194,134,172,134,167 

18378 DATA 132,168,132,173,162,1,134,2,32,6, 226,32, 244,194, 
134,174,134,169, 132 

10380 DATA 170,132,175,165,2,9,2,133,2, 96,32, 14, 226,32, 138 
‚„173,32,247,183,166 

18390 DATA 20,164,21,96,165,2,41,1,240,8,165,172,133,195,1 
65,173,133,196, 96,32 

104806 DATA 38,181,162,5,134,171,32,176,194,169,1,133,185,1 
62,4,181,44,149,171 

18410 DATA 149,166, 202, 208, 247,32,127,192,162,0,134,183,16 
2,5,134,171,2@2,181 

18420 DATA 46,149,171,149, 166, 202,208, 247,32,127,192,162,5, 
134,171,165,51,166 

104530 DATA 52,133,172,133,167,134,173, 134,168, 165,55, 166,56 
„133,174,133,169,134 | 

10440 DATA 175,134,170,76,127,192,32,176,194,169,1,133,2,1 
65, 45,166, 46, 133,172 

19450 DATA 134,173,32, 142,193, 169,5, 133,2,169,0,133,183,16 
6,174,164,175,134,47 

104648 DATA 132,48,134,172,132,173,32,142,193,166,174,164,1 
75,134,49,132,50,169 

18470 DATA 4,133,2,32,142,193,173,60,3,133,51,173,61,3,133, 
52,32, 183, 255,37,191 

10480 DATA 240,5, 162,29, 76,55, 164,162, 25,134, 22,169,0,133, 
58,133,16,96 
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12.1 PROGRAMMBESCHREIBUNG 


Für interessierte Leser, die zumindest einige 
Grundkenntnisse in ASSEMBLER-Programmierung haben, möchte 
ich das FastTape-Programm näher beschreiben. Vielleicht 
fallen Ihnen noch einige Verbesserungen ein, die Sie in das 
Programm einbringen wollen. Als Zusatzlektüre empfehle ich 
Ihnen die entsprechenden Kapitel über die Ein- und 
Ausgabebausteine in den DATA-Becker Büchern 64 INTERN und 
VC 20 INTERN. 


PRINZIPIELLE ARBEITSWEISE 


Einzelne Bits werden durch Rechteckpulse auf Band 
geschrieben. Das Byte 20, Binär %00010100 sieht 


folgendermaßen aus: 


In folgendem Speicherformat wird ein Programm gespeichert: 
1. Synchronisation 1 


5 mal (246 mal Byte 2). Dadurch wird beim Ladevorgang 


auf den Start eines Bytes synchronisiert. 


_ Countdown Bytes 9, 8, 7, 6, 5, 4, 3, 2, 1. Hierdurch 
wird das Ende der Synchronisation gekennzeichnet. 
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2. Vorspann, bestehend aus 


Sekundäradresse-1 
Start- und Endadresse 


Filenamen 


Der Vorspann wird immer auf 192 Zeichen mit "SPACE" 
aufgefüllt und beim Laden im Cassetten-Puffer 
abgelegt. Somit ist es auch hier möglich, mit dem 
Filenamen Maschinenprogramme zu übergeben, wie es im 


Kapitel 7.3 beschrieben wurde. 
3. Synchronisation 2 
Wie Synchronisation 1, aber nur 2 mal. 


4. Null-Byte Kennzeichnung dafür, daß jetzt die Daten 
folgen. 


5. Daten 


6.. Prüfsumme, 255 mal 


Im Unterprogramm INIT wird der Vektor zur 
Interpreterschleife auf das FastTape-Programm umgelenkt. 
Dadurch wird erreicht, daß jedesmal, wenn ein Befehl 
ausgewertet werden soll, FastTape angesprungen wird. Im 
Unterprogramm START wird nun getestet, ob das erste Zeichen 
der FastTape-Code (Pfeil nach links) ist.. Ist das Zeichen 
kein FastTape-Code, wird in die Interpreterschleife 


zurückgesprungen. 


wird der FastTape-Code gefunden, wird über das Unterprogramm 
SUCH durch Vergleich mit der Buchstaben- tabelle TAB die 
entsprechende Startadresse bestimmt. Wird der Buchstabe 
nicht gefunden, wird ein"?SYNTAX ERROR" ausgegeben. | 


Sonst wird die entsprechende Befehlsstartadresse auf den 
STACK geschoben. Dadurch verzweigt das Programm nach dem RTS 


108 


der CHRGET-Routine zu der entsprechenden Adresse plus eins 
und kehrt nach Ausführung zu der Adresse $CO01D($701D) 


zurück. 


Bevor ich die einzelnen Hauptprogramme erkläre, möchte ich 


einige häufig benutzte Unterprogramme beschreiben. 


te auf Ba schreiben : WBYTE_$C133 


Die Übergabe des zu schreibenden Bytes erfolgt über den 
Akkumulator. Dieses Byte wird in die Speicherstelle $BD 
geschrieben und dann mit der EXOR-Prüfsumme durch 
EXKLUSIV ODER verknüpft. 


In $Cc139 wird 8 (ein Byte = acht Bit) in den Bitcounter 
geschrieben. Mit SHIFT beginnt die Schleife, die acht Bit 
auf Band schreibt. Zuerst wird das höchstwertige Bit in das 
Carry-Flag geschoben. Das PORT-Byte wird nun in den Akku 
geladen und das Schreibbyte (Bit drei) gelöscht. 


Entsprechend der Zeitschleife T1LOOP (bei gesetzten 
Carry-Flag zusätzlich T2LOOP) ist die Schreibleitung nun 
"high". Am Ende der Zeitschleife wird der Akkuinhalt in den 
Port übertragen mit der Folge, daß die Schreibleitung "low" 


wird. 


In $C149 wird dann im Akku wieder Bit drei gesetzt und 
erneut in die Zeitschleife T1LOOP verzweigt. Am Ende wird 
dann durch die Übertragung des Akkuinhalts in den Port die 


Schreibleitung wieder "high". 


In $C150 wird der Bitcounter dekrementiert und getestet. 
Wurden alle acht Bits übertragen, wird zurückgesprungen. 
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Byte vom Band lesen: HOLBYT $C286 


Zuerst wird ab $C286 der Bitcounter auf 8 gesetzt. Dann 
werden acht Bit nacheinander über HOLBIT eingeladen und über 
das Carry-Flag in $BD geschoben. Am Ende ($C269) wird über 


den Akku das eingelesene Byte übergeben. 


Bit vom Band lesen: HOLBIT $C299 


Die Schleife $C299 - $C29E wartet bis Bit vier im ICR2 des 
CIA2 "high" wird. Dieses Bit wird gesetzt, wenn an der READ 
Leitung (D/4) des Cassettenports ein Signal anliegt. Dann 
wird das ICRI geladen und das X-Register als Highbyte in den 
Zähler B vom CIA2 geschrieben und ICRi auf den STACK 
gerettet. 


In $C2A9 wird Bit 1,3 und 4 im Kontrollregister B gesetzt, 
was zur Folge hat, daß Zähler B einmal abwärts zählt und 
gestartet wird. Danach wird der gerettete ICR1I Inhalt 
zurückgeholt und durch zweimaliges Rechtsschiften Bit eins 
ins Carry-Flag geschoben. Dieses Bit wird dann "high", wenn 
der Zähler bis auf O0 gezählt hat, bevor er neu gestartet 


wurde. 


Auf diese Weise wird festgestellt, ob es lange dauerte, bis 
die Leseleitung wieder high war, was einem gesetzten Bit 


entspricht. 


Parameter holen : GETPARA $C2BO 


Diese Routine holt die mit. den Befehlen übergebenen 
Parameter und schreibt sie in die entsprechenden 
Speicherstellen. Weiterhin wird entsprechend der Parameter 
das Flag ABSFLG gesetzt. 


Dieses Flag ist ein Binärflag und steuert folgende 


Funktionen: 
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File an eine beim 
L-Befehl übermit- 
telte Adresse laden 


File absolut laden 


oder speichern 


Beim C64 nicht war- 


ten, sondern sofort 


laden 


Synchronisation schreiben :SYNCH $C113 


Dieses Unterprogramm schreibt sooft, wie in $AB angegeben 
ist, 246 mal das Byte 2 auf Band. Zuletzt wird ein Countdown 
aus den Bytes 9, 8, 7, &, 5, 4, 3, 2, 1i auf Band 


geschrieben. 


Synchronisation suchen: SCOUNT $C258 


Zuerst wird die Recordertaste abgefragt. Dann wird der Motor 
gestartet, Bildschirm abgeschaltet (nur C-64) und das 
Prüfsummenbyte auf O gesetzt. Ab $C260 wird 7 in das Lowbyte 
geschrieben und das X-Register mit für das Highbyte des 


Timers mit 1 geladen 


Ab SSTART werden dann solange Bits eingelesen, bis der 
Bytewert der eingelesenen Bits genau 2 wird. Dann werden 
alle folgenden Zweier-Bytes der Synchronisation eingelesen 
und festgestellt, ob danach ein Countdown ab 9 folgt. 


Wird ein fehlerfreier Countdown gefunden, wird zum 


Hauptprogramm zurückgesprungen. 
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Vorspann einlesen : SSYNCH_$C20A 


Dieses Unterprogramm sucht mit SCOUNT die nächste 
Synchronisation. Mit Hilfe des letzten von SCOUNT 
eingelesenen Bytes stellt es fest, ob es sich um 
Synchronisation 1 oder 2 handelt. Ist die gefundene 
Synchronisation nicht Synchronisation 1, wird weitergesucht. 
Sonst wird das letzte Byte als Sekundäradresse in $AB 
gerettet. Daraufhin wird der Vorspann eingelesen und im 
Cassettenpuffer abgelegt. Danach wird über die 
Betriebssystemroutine ab $FC93 der Motor ausgeschaltet und 


beim C-64 der Bildschirm wieder eingeschaltet. 


rogramm laden : LOAD $C21 


Durch dieses Unterprogramm wird das Programm eingelesen. 
Zuerst wird mit SCOUNT die Synchronisation 2 gesucht und 
damit auch die Leseroutine auf das Band synchronisiert. 


LLOOP ist die eigentliche Laderoutine. Mit HOLBYT wird ein 
Byte eingelesen und über den Startvektor indirekt-indiziert 
in den Speicher geschrieben und verglichen. Bei V (VERIFY) 
wird nur verglichen. Tritt dabei ein Fehler auf, wird das 
Statusbyte gesetzt. Danach wird die EXOR-Prüfsumme gebildet 
und der Startvektor inkrementiert. 


Die Schleife LLOOP wird solange durchlaufen, bis die 
Differenz zwischen Start- und Endvektor gleich null ist. 
Dann wird noch die abgespeicherte Prüfsumme eingelesen, der 
Motor aus- und beim C64 der Bildschirm angeschaltet. Über 
die Betriebssystem-Routine $FC93 wird zum Hauptprogramm 


zurückgesprungen. 
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Als letztes möchte ich die Hauptroutinen etwas näher 


beschreiben. 
SAVE ROUTINE $C063 
In $AB wird zunächst die Wiederholungszahl der 


Synchronisation 1 abgelegt und das Flag ABSFLG gelöscht. 
Danach werden über GETPARA die einzelnen Fileparameter 


eingelesen. Entsprechend ABSFLG werden dann die 
Basicvektoren in die Lade-, Start- und Endevektoren 
übertragen. 


Ab $CO7’F wird die Recordertaste abgefragt, "SAVING name" 
ausgegeben, der Motor gestartet und beim C-64 der Bildschirm 
ausgeschaltet. Über das Unterprogramm SYNCH wird nun die 
Synchronisation auf Band geschrieben. Danach wird die um 
eins erhöhte Sekundäradresse auf Band übertragen. Darauf 
folgend wird ab $CO094 der Vorspann, bestehend aus Start- und 
Endadresse, Filename und Füllbytes auf Band geschrieben. Zum 
Schluß folgt die Synchronisation 2, die zur Kennzeichnung 
mit einem Null-Byte abgeschlossen ist. 


Ab $COCB (PRGLOOP) folgt die eigentliche 
Programmspeicherroutine. Das Programm wird über den 
Programmstartvektor $AC/$AD indirekt - indiziert aus dem 


Speicher gelesen und an die Datassette übertragen. Danach 
wird der Vektor $AC/AD inkrementiert und mit dem 


Programmendvektor verglichen. 


Diese Schleife wird solange durchlaufen, bis der Startvektor 
gleich dem Endvektor ist. Als Abschluß wird dann 255 mal die 
EXOR-Prüfsumme auf Band geschrieben. Nun wird 1 in das 
Motorflag geschrieben, um das Abschalten des Motors 
vorzubereiten, und das Speichern über die 
Betriebssystemroutine in $FC93 beendet. 
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LADEROUTINE  $SC18E 


Als erstes wird eine Synchronisation durch das Unterprogramm 
SSYNCH gesucht. Ist das letzte Byte der gefundenen 
Synchronisation, das in $AB geschrieben wurde, null, handelt 
es sich um eine Synchronisation 2, und es wird wieder zum 
Start dieser Routine gesprungen. Ist $AB ungleich null, 
wurde eine Synchronisation 1 gefunden, und der Wert in $AB 


ist die Sekundäradresse. 


Ist das File mit der Sekundäradresse eins abgespeichert, 
oder ist die beim Ladebefehl übermittelte Sekundäradresse 
gleich eins, wird in ABSFLG Bit eins gesetzt, und die 
Startadresse aus dem Cassettenpuffer wird in den 
Ladestartvektor geschrieben. Danach wird ab RELLOD "Found 


name" ausgegeben. 


Das Unterprogramm ADTEST testet nun anhand von Bit null von 
ABSFLG, ob anstatt der im Cassettenpuffer stehenden 
Startadresse eine andere durch den L-Befehl übermittelte 
Adresse als Ladestartvektor benutzt werden soll. Ist Bit 
null von ABSFLG gesetzt, wird die mit L übermittelte 
Adresse, die in $AC/$AD steht, in den Startvektor 


geschrieben. 


Entsprechend Bit zwei von ABSFLG wartet der Computer nun auf 
einen Tastendruck von Ihnen oder nicht. Nach dem Test, ob 
die STOP-Taste gedrückt wurde, wird der Filename des 
gefundenen Files mit dem des gewünschten verglichen, falls 
ein Name übergeben wurde. Stimmen die Namen überein, kann 


der Ladevorgang beginnen, und das Statusbyte wird gelöscht. 


Durch die Addition der Programmlänge, gebildet aus der 
Differenz der Start- und Endadresse aus dem Vorspann, und 
dem Startvektor wird die Endadresse berechnet und in den 
Endvektor geschrieben. Das Unterprogramm PLOAD lädt dann das 


Programm. 


Danach werden die Prüfsummen verglichen und ggf. der Status 
gesetzt. Wenn in ABSFLG kein Bit gesetzt ist, werden über 
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die Betriebssytemroutine STOEND die Basic-Vektoren auf das 


Programmende gesetzt. 


Die Routine MERGE, LOAD und VERIFY laufen alle über die LOAD 


Routine. 


Bei MERGE wird der Startvektor entsprechend dem 
Basic-Programmendvektor gesetzt. Danach wird relativ 
geladen. Bei VERIFY wird das VERIFY-Flag über das X-Register 
auf eins, bei LOAD auf null gesetzt. 


Vor der LOAD-Routine werden über GETPARA noch die weiteren 
Parameter eingelesen und in ABSFLG der entsprechende Wert 


gesetzt. 


DATENSPEICHERUNG UND DATEN LESEN 
Die Daten werden als 3 Blöcke abgespeichert. 


1. Block : Variablen 
Bereich zwischen den Zeigern 45, 46/47, 48 


2. Block : Felder 
Bereich zwischen den Zeigern 47, 48/49, 50 


3. Block : Strings 
Bereich zwischen den Zeigern 51, 52/55, 56 


Die Länge der einzelnen Blöcke wird im Vorspann durch die 
Start- und Endadresse übergeben. 


DATASAVE $C311 


Ehe die Daten abgespeichert werden können, müssen sie auf 
minimalen Platz komprimiert werden. Deshalb wird zu Beginn 


die Garbage-Collection aufgerufen. 
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Mit Hilfe von GETPARA wird nun der Filename gesetzt. Danach 
wird als Sekundäradresse 1 gegeben, da ein bestimmter 
Speicherbereich abgespeichert werden soll. Durch ULOOP 
werden die Zeiger auf Anfangs- bzw. Endadressse des 


Variablenbereichs in die Start- und Endvektoren übertragen. 


Zuletzt wird dieser Bereich durch das Unterprogramm ABSOLUT 


absolut abgespeichert. 


Die Felder und Strings werden danach analog zu den Variablen 


ohne Filenamen über ABSOLUT abgespeichert. 


DATALOAD $C361 


Zuerst wird über GETPARA der Filename gesetzt. Durch Setzen 
des Bit null in ABSFLG wird erreicht, daß der Bereich an 
eine bestimmte Adresse geladen wird und die Adressen im 


Vorspann ignoriert werden. 


Als Ladeadresse wird die Variablen-Startadresse in den 
Startvektor übertragen. Über LOADR wird nun der 
Variablenbereich eingelesen. Danach wird zusaätzlich Bit 
zwei in ABSFLG gesetzt, damit der Rechner nach dem Finden 
der nächsten Synchronisation 1 nicht auf einen Tastendruck 
des Bedieners wartet. Weiterhin wird kein Filename gegeben. 
Der Imjalt von $AE, $AF setzt den Zeiger auf das Ende des 
beschriebenen Bereichs. Dieser Zeiger wird zugleich als 
Startvektor für die Felder in den Ladestartvektor 
übernommen, damit bei erneutem Aufruf von LOADR die Felder 
eingelesen werden. Danach wird $AE, $AF in den Zeiger auf 


das Ende der Felder geschrieben. 


Da die Stringtabelle vom Basic-RAM-Ende nach unten wächst, 
wird deren Ende nicht durch die Basic-Programmlänge 
beeinflußt. Aus diesem Grunde wird dieser Bereich immer 
wieder dahingeladen, von wo er abgespeichert wurde. Darum 
wird Bit null win ABSFLG gelöscht. Danach wird die Tabelle 
durch die Routine LOADR geladen. 
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Der Zeiger auf das untere Ende der Stringtabelle wird dann 


aus dem Cassettenpuffer gelesen und in 51, 52 gespeichert. 


Zu guter letzt wird der Status getestet und ggfs. eine 
Fehlermeldung ausgegeben. Ist kein Fehler aufgetreten, wird 
der Stringdescriptor zurückgesetzt und zum Hauptprogramm 


zurückgesprungen. 
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13. DATENVERARBEITUNG MIT FASTTAPE 


In diesem Kapitel möchte ich Ihnen zeigen, daß auch mit 
einem Cassettenrecorder mit der geeigneten Software eine 


effiziente Datenverarbeitung möglich ist. 


Das in diesem Kapitel abgedruckte Datenverarbeitungsprogramm 


hat folgende Spezifikationen: 


- Daten speichern und laden mit FastTape. Je nach 
Größe der Datei dauert der Speicher- und Ladevorgang 


zwischen 20 Sekunden und 1,5 Minuten. 


- Die Wahl der Datensatzanzahl ist Ihnen überlassen. 
Das Maximum ist von der freien Speicherkapazität des 


Rechners abhängig. 


- Ein Datensatz kann in beliebig viele Felder 


unterteilt werden. 

- Ein Feld darf maximal 8O Zeichen haben. 

- Die Bezeichnung der einzelnen Felder ist frei 
wählbar und kann auch nach der ersten Festlegung 
geändert werden. 

- Gesucht werden kann in einzelnen oder mehreren 
Feldern. Dabei können Sie wählen, ob ein oder alle 
Suchkriterien erfüllt werden sollen. 


- Die Suchgeschwindigkeit ist in allen Feldern gleich. 


- Es kann nach Übereinstimmung, Ungleichheit, größer 


und kleiner gesucht werden. 
Falls Sie eine Befehlerweiterung mit einem 


INSTRING-Befehl besitzen, kann auch nach 


Teilbereichen innerhalb von Feldern gesucht werden. 
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- Wenn in mehreren Feldern gesucht wird, kann für 


jedes Feld eine andere Suchfunktion bestimmt werden. 


- Es kann jederzeit eine HELP-SEITE angezeigt werden, 


die die einzelnen Befehle erklärt. 


- Sie können mit gefundenen Daten Listen erstellen, 


die Sie formatiert ausgeben können. 


- Sie können frei bestimmen, welche Felder ausgegeben 


werden sollen. 


- Die einzelnen Felder können mit oder ohne 


Feldbezeichnung ausgegeben werden. 


- Listen können nach einem beliebigen Feld sortiert 


werden. 


Ich habe dieses Programm so geschrieben, daß es ohne 
Änderungen sowohl auf dem VC 20 als auch auf dem C-64 läuft. 
Diese allgemeinen Anpassungen brauchen aber einen gewissen 
Speicherplatz und können bei Bedarf geändert bzw. gelöscht 
werden, sodaß wieder mehr Speicherplatz zur Verfügung steht. 
Damit Sie bei Bedarf das Programm an Ihre eigenen 
Bedürfnisse anpassen können, finden Sie am Ende dieses 


Kapitels eine detaillierte Programmbeschreibung. 


Doch kommen wir nun zur Bedienung des Programms. Es ist 
möglich, mit diesem Programm eine Datei beliebiger Art 
einzurichten und zu bearbeiten. Sie können ein Literatur- 
oder Rezeptverzeichnis anlegen, Ihre Plattensammlung 


erfassen, oder die Adressen Ihrer Freunde verwalten. 


Um Ihnen die Funktion und Bedienung dieses Programms 
darzulegen, ist es am besten, wenn Sie, geleitet durch diese 
Bedienungsanleitung, eine Übungsdatei anlegen. Da ein 
Rezeptverzeichnis oder ähnliches zu diesem Zwecke zu 


umfangreich ist, legen Sie am besten eine Adressdatei an. 
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Ich gebe zu, daß dies schon eine äußerst abgedroschene 
Dateiart ist, doch ist es mit einer Adressdatei möglich, mit 
wenig Schreibarbeit eine Datei mit mehreren Datensätzen zu 


schreiben. 


Nach dem Starten mit RUN erscheint auf Ihrem Bildschirm das 


Menue. 


#8 MEN UE 


Datei pflegen 
blaettern 

= Liste ausgeben 
Liste sortieren 
Daten eingeben 
Datei laden 
Datei speichern 
Datei einrichten 
Feldber. aendern 

= FIDIE-) 


Da Sie noch keine Datei angelegt haben, wählen Sie als 


erstes Punkt 9 des Menues. 


DATEI EINRICHTEN 


In diesem Menuepunkt müssen Sie die Grundcharakteristika 
Ihrer Datei eingeben. Sie werden gebeten, die Feldanzahl und 
die maximale Datensatzanzahl einzugeben. Diese Werte können 


nicht mehr geändert werden. 


Danach werden Sie aufgefordert, Feldbezeichnungen für die 
einzelnen Felder einzugeben. Für unsere Übungsadressdatei 
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geben Sie bitte als maximale Datensatzanzahl 10 oder mehr 
ein und als Feldanzahl 7. Die einzelnen Felder bezeichnen 


Sie am besten folgendermaßen: 


Vorname 

Name 

Straße und Hausnummer 
..PLZ 

Wohnort 

Telefon 

Hobby 


So nn a N 


Wenn Sie diese Eingaben getätigt haben, kehren Sie wieder 
zum Hauptmenue zurück. Ein nochmaliges Anwählen dieses 


Menuepunktes ist nun nicht mehr möglich. 


Da Sie das Programm ja noch nicht richtig ausgetestet haben, 
es können sich immer einmal Fehler beim Abtippen 
einschleichen, speichern Sie diese Datei vorsichtshalber 
schon mal ohne Daten ab. Wählen Sie dafür den Punkt 7 "Datei 
speichern" an. 


Als erstes werden Sie nach dem Filenamen gefragt. Geben Sie 
"Adressen" ein und drücken Sie RETURN. Nun werden Sie 
gebeten, eine Datencassette einzulegen. Legen Sie also eine 
Cassette als Datencassette in Ihren Recorder. Achten Sie 
dabei darauf, daß Sie die Cassette nicht ganz am Anfang 
stehen haben, damit die Datei auch sicher gespeichert wird. 
Drücken Sie RETURN und folgen der Aufforderung "PRESS RECORD 
& PLAY ON TAPE". 


Nachdem alle Variablen gespeichert wurden, kehrt der Rechner 
zum Menue zurück. Nun wollen wir einige Datensätze eingeben. 


DATEN EINGEBEN 


Nachdem Sie diesen Menuepunkt angewählt haben, erscheint 
folgendes Bild: . = | | | 
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* DATEN EINGEBEN * 


es existieren © Datensaetze 


Hohnnort 
Telefon: 


le a SEE 


Der Cursor steht unter der Feldbezeichnung "Vorname". Sie 
können nun in jedes Feld bis zu 8O Zeichen schreiben. 
Solange Sie innerhalb eines Feldes bleiben, steht Ihnen der 
volle Commodore-Bildschirmeditor zur Verfügung. Füllen Sie 


die Felder einmal folgendermaßen aus: 


* DATEN EINGEBEN * 


es existieren © Datensaetre 


Duesseldorf 
leleron ; | 


Hold 
Eomputer 
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Nachdem Sie die Eingabe im letzten Feld mit RETURN 
abgeschlossen haben, erscheint "RETURN" in der letzten 


Bildschirmzeile. 
Sie haben nun folgende Eingabemöglichkeiten: 


RETURN - Der Datensatz wird in die Datei übernommen, und 
Sie können den nächsten Datensatz eingeben. 


Q - Der Datensatz wird nicht übernommen, und das 


Programm kehrt zum Menue zurück. 


K - Der Cursor erscheint wieder im ersten Feld, und 


Sie können die Eingaben korrigieren. 


beliebige 
andere 
Taste - Der Datensatz wird übernommen, und das Programm 


kehrt zum Menue zurück. 


Geben Sie also bei fehlerfreier Eingabe RETURN. Im Kopf wird 
nun angezeigt, daß ein Datensatz existiert und der Cursor 
erscheint wieder im ersten Eingabefeld. In den Feldern steht 
nun noch die letzte Eingabe, die Sie jetzt ggf. 
überschreiben können. Falls sich einige Felder nicht ändern, 
können Sie sie durch Drücken von RETURN diesen Datensatz 
übernehmen. Geben Sie auf die oben beschriebene Weise einmal 


vier Adressen ein. 


Falls eine Erweiterung mit "INSTRING"-Befehl zur Verfügung 


steht, geben Sie auch einmal den nächsten Datensatz ein: 
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* DATEN EINGEBEN * 


es existieren 4 Datensaetze 


OF Yan ©) 

Marlies 

Mame 5 

Bange 
SrPa=see 1). Hausrat | 
Kaiserstr. 44 

a RE 

4150 

HOrmopTt ©| 

Erefelcd 

leleror 

aaaneR 

Hola © 
Eochen/Computer 


Kehren Sie nun durch Drücken einer beliebigen Taste zum 
Menue zurück. 


BLÄTTERN 


wählen Sie nun Menuepunkt 2. In diesem Modus können Sie sich 
die Daten in der Reihenfolge in der Sie sie eingegeben haben 


ansehen und ggf. ändern. 


Durch Betätigen der RETURN-Taste können Sie jeweils um einen 
Datensatz weiterblättern. Mit der "-"-Taste können Sie 
zurückblättern. Wenn Sie die "K"-Taste drücken, erscheint 
der Cursor im ersten Feld, und Sie können den angezeigten 
Datensatz ändern. Mit der "Q"-Taste kommen Sie wieder in das 


Menue. 
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* * BLAETTERN * * 


Datensatz Nr. ? 


ARTSITETNITBEEEN 

Feter 

KETTE 

Namenlos 
Seracce 0, (Hausmmmert..:. | 
Dorfstr. 125 

a ER 

1234 

Wohnort ;: | 

Nirgendwo 


Computer 


DATEN PFLEGEN 


Unter Menuepunkt 1 gelangen Sie in diesen Programmteil. Sie 
können hier die Daten selektieren, löschen, ändern und 


Listen erstellen. 


Als erstes suchen wir im Feld "Name" alle Datensätze, in 
denen der Name mit "M" beginnt. Geben Sie also auf die 
Frage, nach welchen Feldern gesucht werden soll, eine 2 ein. 
Daraufhin erscheint die entsprechende Feldbezeichnung invers 
auf dem Bildschirm. In der vorletzten Bildschirmzeile 


erscheint: 


FE EEE 
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Das sind die Auswahlmöglichkeiten, die Sie haben. 


1. Teilstring (nur mit INSTRING-Befehl) 
Sie suchen nach einer Zeichenfolge, die an beliebiger 


Stelle innerhalb des Feldes stehen kann. 


2. Gleich 

Sie suchen nach einer signifikanten Zeichenfolge, die 
genau gleich Ihrem Suchstring ist. Es werden dabei 
immer nur soviele Zeichen verglichen, wie Sie als 
Suchstring eingeben. Geben Sie z.B. "Ma" ein, findet 
das Programm Mann, Maus, Mama etc.. Dies gilt analog 


auch bei den folgenden Möglichkeiten. 


3. Ungleich 


Hier werden die Strings gefunden, die nicht mit dem 


Suchstring übereinstimmen. 


4. Größer oder gleich 


Hier findet das Programm alle Strings, die größer oder 
gleich sind. Geben Sie z.B. M bei dem Namen ein, 
werden alle Namen gefunden, die mit M oder einem 
folgenden Buchstaben (N, O0, P, Q...) beginnen. 


5. Kleiner oder gleich 


Geben Sie als Suchstring M ein, werden alle Namen, die 


mit A - M beginnen, gefunden. 


Drücken Sie "2", und Sie erhalten folgendes Bild: 
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SUCHEN / AENDERN 
Vorname 
Name 
Strasse u. Hausnummer 
FI_Z 
Wohnort 
Telefon 
Hobby 


So Neid 


s 


Nach welchen Feldern soll gesucht 


Wenn Sie innerhalb weiterer Felder suchen wollen, müssen Sie 


nur die entsprechende Zahl eingeben. 


Wir wollen aber jetzt erst einmal nur nach dem Namen suchen. 
Durch Drücken der RETURN-Taste schließen Sie die Eingabe ab 
und werden nun gefragt, ob ein Datensatz bei einer oder 
allen Übereinstimmungen gefunden werden soll. Da Sie ja 
sowieso nur ein Auswahlkriterium eingegeben haben, geben Sie 


RETURN. 


Es erscheint nun die bestimmte Feldbezeichnung und der 
Cursor. Da wir alle Namen suchen wollen, die mit "M" 
beginnen, geben Sie M ein und RETURN. Daraufhin erscheint in 
der letzten Bildschirmzeile wieder "RETURN". Wenn Sie nun 
"K" drücken, können Sie die Eingabe korrigieren. Drücken Sie 
RETURN, beginnt der Rechner mit der Suche und zeigt dann die 
Trefferzahl, die Datensatznummer des angezeigten Datensatzes 


und den Datensatz selber an. 
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SUCHEN / AENDERN 


= Iretter 
Datensatz Nr. #9 


STEEL RE 
Max 

BETIT- RES 
Meier 
Seraäcece 0, 'Hauzyınmg 
Oberstr. 
Pr = ni) 
LRETeTE| 
Kool: 
Duesseldorf 
leleror 


211 STERN 
Computer 


RETURN 


Sie können nun wie unter "Blättern" in den gefundenen 


Datensätzen blättern. 


Weiterhin können Sie sie durch "K" korrigieren und durch "L" 


löschen. Mit "Q" gelangen Sie wieder in das Menue. 


Machen Sie sich jetzt am besten etwas mit den Menuepunkten 1 
und 2 vertraut, damit Sie sehen, wie und wie schnell die 
gewünschten Datensätze gesucht und korrigiert werden können. 
Suchen Sie dann einmal nach einem Kriterium, das auf mehrere 


Datensätze zutrifft. 
Wenn Sie so eine Liste aus mehreren Datensätzen erstellt 
haben, können Sie sie über Menuepunkt 4 nach einem 


beliebigen Feld, z.B. "Namen", sortieren. 


' Über den Menuepunkt 3 können Sie die Liste auf dem 


Bildschirm oder auf einem Drucker ausgeben. 
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LISTE AUSGEBEN 


In diesem Menuepunkt werden Sie gefragt, welche Felder 
ausgedruckt werden sollen. Durch die Eingabe der Feldindice 
können Sie die gewünschten Felder wählen und mit RETURN die 


Eingabe beenden. 


Wenn Sie stattdessen "K" eingeben, werden die angezeigten 
Felder gelöscht, und Sie können die Eingabe wiederholen. 
Nachdem Sie die gewünschten Felder gewählt haben, drücken 
Sie RETURN. 


Als nächstes werden Sie nach einer Überschrift gefragt. 
Diese wird dann oberhalb Ihrer Liste ausgegeben. Bei der 
Druckerausgabe wird die Überschrift in Breitschrift 


ausgedruckt. 


Danach können Sie wählen, ob die Feldbezeichnungen mit 


ausgedruckt werden sollen. 


Als letztes wird danach gefragt, ob die Ausgabe auf den 
Bildschirm oder über einen Drucker erfolgen soll. Bei der 
Druckerausgabe könnten Sie dann folgendes Bild erhalten: 


ser — rt alı 


Marlies 

Anmut 
Kaiserstr. 12 
413% 

Krefeld 

244356 
Kochen/Computer 


Max 
Meier 

. Überstr. 3 
45355 
Duesseldorf 


Computer 
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Feter 
Namenlos 
Dorfstr. 125 
1254 
Nirgendwo 
123456 


Computer 


Das Programm ist so konzipiert, daß jedes Feld in eine 
eigene Zeile geschrieben wird. Durch Programmänderungen in 
den Zeilen 2870 - 2930 können Sie das Ausdruckformat 


entsprechend Ihren Wünschen ändern. 
Wenn Sie die Liste auf den Bildschirm ausgeben, können Sie 
die Ausgabe durch Drücken der "SPACE" - Taste anhalten und 


wieder starten. 


Ich hoffe, daß Ihnen die Bedienung dieses Programms nach 


einigem Üben keine Schwierigkeiten mehr macht. 
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1 


goto 19589 


FRRHHRHEHEHHHRNRKKRTH HF HR TH N TH HH TH FH NH N HH HH FH NH N HH FR HIT HF H FN IH H TH N HH NR HN 
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rem " Such-Routine" 


KFAHRRFRRFRRRHRHHHEHF HH TR TH TH TH FH FH HH FH N FH HF TR HH N FE KH HH FH IH HF N N RR RR TR IR HH HH 


190 
118 
128 
130 
146 
150 
150 
178 
188 
1978 
200 
218 
220 


250 


iftf>fe)lor {n>=as)then return 
a=ssf(f) 

on a gosub 150,170, 250,290, 2290 
f=f+l:goto 160 


ı rem Teilbereich 
t=instr {u$t{f),s$tf)) 


if t{i>® then n=n+1 


return 

: rem " ganz ’=?’ 

if s$tf)=left$(u$tf),len{ts${tf)))then n=n+il 
return 

: rem " ganz ’x=?’ 

if s${f) >=left$tu$tf),len(s#{f)))then n=en+1 
return 

: rem " ganz °’<X>’” 

if st(f)irleft$tu$tf),len{s$(f)))then n=n+i1 
return 

: rem " ganz ’>=? 

if s$(f)<=left$(u$(f),len(s#${f)))then n=n+i 
return 


EERRKKRHEINH HT HHNERTTRHHHR HH NKHHHHTHNHN N NNHRHHIET HRH 


1900 


rem "Warteschleife 


HKERRRRERERRRRHHH HH RT TH HH TH TH THE FH TH N HH TH TH FH TH HK FH HF HH RT NH HEHE REN HIHI HIHI HR NH 


10109 


10270 
1938 


poke 198,0:wait 1978,1:get a$:a=sasc (a$) 
:rem_ "Warteschleife 
if a=135 then gosub 37580 


return 


FERKAHRRKHHRTKRNHFHHRTTF HH THF TH HF NR FH TH FR HI FH HH HF TH HER HH TH FEN HH HR HH N HH HN 


1950 


rem" Ilnitialisierung 


KFHHHFHRKHRRHHHFR RT TH HR TR TR TH TH KH FH NH FH TH FH FH NH HH HE NH HN HH TH FH HR N IN FH HR HH EHER HE 


1250 
1070 


10980 


dw$=" home, down25121" 
sys 545517:5p=peek (781) :ze=peek (782) 
:rem_" Bildschirmdaten holen 


c1=522831:c2=1l:if sp=22 then c1=35977:c2=8 
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1998 


dim z$(4):2$(0)=" T"iz$(1)=" ="iz$(2)="CHtrzg(D)etie" 
:2$ (4)="<=" 


FKFFEREHRRHRHKKRH HT TH N TH HN HH HH HH TR HR HH HH HEHE HH IF FEN HR HH HH TR TH HH FH HR HN 


1100 


rem " Hauptprogramm 


FFRÄRKRKERKEREHRRKTRTKR HH HN TI TH TH RN TH FR TH HH TH N FH HH TRIER FH HH N IHN IHR N HH HR HH 


1119 
1120 
1130 
1140 
1150 
11608 
1170 
1188 
11979 
1200 
1218 
1220 
1250 
12590 


1268 


print chr$(14):poke c1,6%*c2 

gosub 356%: print:print:tasint {sp/9 -2Z 

print tabtta)"[wuhite,rvslil[lrvoff,spacelDatei pflegen" 
print tabtta) "[rvs]2[rvoff,spacelblaettern " 

print tabtta)"[rvs1l3[rvoff,spacelliste ausgeben" 
print tabtta)"[rvs]4[rvoff,„spacelliste sortieren" 
print tabtta)"I[Irvs]15[rvoff,spacelDaten eingeben " 
print tabita)"[rvslöl[lrvoff,spacelDatei laden " 
print tab(ta)"[rvs]J]7[rvoff,spacelDatei speichern" 
print tabtta)"[rvs]ö[lrvoff,spacelDatei einrichten" 
print tabtta)"[Irvs]J9[rvoff,spacelFeldbez. aendern" 
print tabtta) "E[rvslE[lrvoff,space4,rvsJENDE[rvoff]2" 
gosub 1816: a=val(ast):if a$="e"then 177% 

on a gosub 2130, 2000, 72700,29790,1860,1570,1450,1706,1 
790 

goto 1118 


KERHRRRRREERKTKRH NH HH TFT HIT HH HR NH EN HF HH FH KH HH HH IF IH HH N FH HH FH FH HH HH 
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rem "Programm ENDEN 


FKEHRRKERKKERHRH HN FR TR FH TH KH FH FH FR FH FH TH TH FR FH FH TH HF FH FH FH TH FE REN HF FH N N NE TH HR HN HH HH NR 


1270 
1280 


1290 
1500 


iftfl and 2)=2 ortfl and 4)=0 then end 
print"I[clear,down28]":print tab (sp/2-8) "[nuhiteltrotz 
dem ENDEN": gosub 131% 

if f1l{>255 then 11198 


end 


KFEHRHFRRRHRRHRRHHTR HK N TH FH TH TH FH NH HH FH TH FH TH HN FH FH TH TH TH TR HH FH FH FH FH HN FH HH HF HH HN NH 


1385 


rem " FEHLER 


FKFERRRREKERHHTR RN RK FF NH N TH HR FH FH HH FH N HH IH FH HEN FH HH HR EN IR IHNEN HR HH HH 


13510 
1520 
153350 
1540 
1350 
1568 


15798 


poke c1,5%c2 

print"[home}":print"[down?1" 

print:print tab (sp/2-3)"[red,rvsIDATEI" 
print:print tab (sp/2-5) "Irvs31WURDE NICHT" 
print:print tab (sp/2-7)"Irvs1ABGESPEICHERT" 
for i=8 to 15:get a$:if a$X7>""then i=15:nex 
:goto 1448 

next 
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1446 
1458 


print"[homel":print"[down?7]" 

print:print tab (sp/2-S)"[redl1DATEI" 

print:print tab (sp/2-6)} "WURDE NICHT" 

print:print tab (sp/2-7I "ABGESPEICHERT" 

for i=® to 15:get af:if a$=""then i=15S:next:goto 131% 
next 

if a$="j"then f1=2553 


return 


FKFHHFFHHHRHTHF HK HK NT TH TR TH TH TH TH TH N FH FH TH NE TH HF N HH TH TH THE NH HH NH TR FH HI HH HH TH TH TR HH NR 


1450 


rem " Speichern 


FKHFHHREHEHTTHHHHHKHRTN HIN HN FE TH TH TH TH TH HH TH FH TH TH IH TH HH FH TH NH FH FH FH HH RN HH HR HF HR RN 


1470 iftfl and 1)=8 then return 
148@ poke c1,7%*c2:print"[blueJ":gosub 3590 
147@ print:print:print" “"f$"Lup]l":sinput"Filename";f#$ 
1588 print:print"Datencassette einlegen" 
1518 print:print:print" << RETURN >>" 
1528 gosub 191% 
15350 if a$="k"then print"[home}l":goato 1499 
1548 if a$="g"then return 
1550 if a<{>15 then 1520 
1560 _dsf$:fl=fl or Z:return 
BE 2 2 2 2/2252 2727202 2 272022 2027212022272 121202 272720202 2702727272202 2027272202 2 27272122 227222022 
15780 rem " Laden 


KFHRRRRHRHERERRHRHHRTHTF KH N HT HF FH TH NH HH TH NR FR HH HH FR HH HH NH HN RK HH FR HF NN 


1590 
1576 
1608 
1618 
1620 
1650 
1640 
1659 
1660 
1670 
1680 


1690 


ifffl and 6)=4 then gosub 1688: if f1<>255 then return 
poke c1,7*c2:print"[bluel"”:s:gosub 3608 | 
print:print:print" "f#"Lup]":input"Filename";f#$ 
print:print"Datencassette einlegen" 
print:print:print" x< RETURN >>" 

gosub 11% 

if a$="k"then print"[homel":goto 1608 


if a$="g"then return 

if a“>13 then 163% 

_dif%$:fl=fl and Z51l:return 
print"[clear,down203":print tab (sp/2-8) "Lwhiteltrotz 
dem LADEN" 

gosub 151®@:return 


FHFHHERKRHEERERERRHH FR FF TH N IF FF TH TH TH HE FH KH FR HH HF HH FH FH FR HERR HF HF HH FH HR HH HN 


1792 rem " Datei erstellen 


FF RHR N HH TH TR TR THE N FH TH NH HH HH FH TH FH FH FH HH FH FR HH HH HF FH IH HH HH FH HH HN 
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1718 
1720 
1730 
1748 
1758 


1760 
1770 


poke c1,8%*c2:if fl then return 

gosub 3556:rem_" Titel schreiben 
print:print:input"Feldanzahl"sfa 
print:input"[downlmax Datensaetze"sra 
print:print"<<{ RETURN >> ":gosub 1018 

:sif a<>13 then print"[home)l":goto 1750 

dim m$(fa) ,e$(fa,ra),sf(fa),s$lfa) ,u$stfa),gf%A(ra) 
fl=1:rem_" Flag setzen 


KERKAFRRHRIKRKRKNHKERIKRHRNHRHNTR HINTER TH HR HH TR IHN TH HH HH NH HR HR HH HH RN 


1775 


rem " Feldbezeichnungen eingeben 


KRARERRRRIERNNHRRRRHRNI HH TH TH HN HN HH TH RER ER FH HH NEN HN HH NH HEN 


1780 
1770 
1800 


1819 
1820 


1830 
1840 


18508 


iftfl and 1)=@ then return 
gosub 3558:rem_ "Veberschrift schreiben 
print:print"Geben Sie die ";:if sp“‘48 then print 
print 
print"Feldbezeichnungen ein" | 
print:for i=@ to fa-1:print:print"[rvs]lFeld "i+1"[rv 
off" 
print" "m$(i)"Lup]"zinput m$(i):znext 
print left$(dw$,ze)"<<i RETURN >>"; :gosub 1010 
:if a$="k"then print"[home}":goto 1800 


fl=fl or 4:return 


KRERERRREREIRKNERKRRR HERRIN IHR FR HH HH RE HH KR FH FR HR RR FR RN RR FEN HH NR N 


1880 


rem “ Daten eingeben 


KEERKRRUEREKERERRKERKRERHFERURK HR HR HT N HT TH TH HH TH HH HH HH ER HH TH HR HR HR 


1865 
1870 
1880 
1870 


1970808 
19710 
1720 
1930 


1740 
1950 
1760 
1970 
1980 


if fl and 1=8 then return 

poke c1,5%c2:print"[blue]" 

close 1l1:open 1,9 

gosub 3588:print:print"es existieren"rt; 

:if spi40 then print 

print"Datensaetze" 
ri=rt:r2=rt:if (rt>0) and (a$<>"k")then ri=ert-1 


gosub 3650:gosub 367@:rem_" Felder anzeigen 
print left$(dw$,ze)"[green, space3517Xs RETURN >> E[nhit 


el"5:gosub 1619 

if a$="g"then return 

if a$="k"then 1896 

if a{>13 then fl=fl or 12:rt=rt+1l:return 
rt=rt+1l:if rt<{ra then 189% 


gosub 3588:print:print:print"maximale Satzzahl "5 
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17978 


:if spi4@ then print 


print:print"erreicht":gosub 1®1@:return 


FKEHRRFRHRHERHKKRKRHHH NH NN KH TH TH TH HF RK HER HIFI HH HH FRE TR HF RN HEN KR N 


2880 


rem Blaettern 


KFAHHRKHRRKKERRHHRKER HH NH TR TH NH TH NH IN HT ER FEN EHI H TFERNEIIHRH N FE N FH H N HRHN 


2095 
2810 
2020 
2925 
2030 
2940 
2050 


2060 
2070 
u80 
2070 
2108 
2110 


2120 


iftfl and 8)=8 then return 

poke c1,6*c2:print"I[white}" 

r1=® 

if ri<@ then rli=ri+trt 

gosub S561®:print:print"Datensatz Nr."ri 

gosub 3659 

print left$(dw$,ze)"[green, space31<{“ RETURN >> [whit 
el"s:gosub 1018 

if a$="-"then ri=ri-1:goto 2025 

if a$="g"then return 

if a$="a"then gosub 256%: goto 2048 

if ai’15 then 2050 

if ri{rt-1 then ri=ri+1:goto 28590 

gosub 5618: print"I[downd,right,rvs,spacelkeine weiter 
n Daten " 


ri=0:goto 2059 


FKFEHERFRRRRRHHRRKEHRTRKHKHH HN TR RR RR FH FH TR TH HN IN FR FH FEN HR HH HR HH HH TR IR NH HN HH 


21350 


rem " Datei pflegen 


FKERKHERRRRRHHRRHNNKHRHHNR HET TH NR NK HN N TH HR KK HH TH FH N TR RN HR FR HH HN RE HR RR 


2155 
2140 
21590 
2160 


iftfl and 9)=8 then return 

poke c1,4*c2 

for i=® to fa-1:sf (i)=@:next:as=®d 

gosub 3628: for 1i=® to fa-i:print i+1"[lleft]. "ma$(i) 
next 

print:print"Nach welchen Feldern "5; 

:if sp<48 then print:print 

print"soll gesucht werden":print:print 

gosub 1818:if a=15 then 2262 

if a$="g"then return 

if a$="k"then 2150 

i=val(a$):if i<l or i>fa then 2190 

if sfti-i)then 2190 

dö=peek (214):rem_" Cursorzeile retten 

sf (i-1)=1:print tab(5)"I[rvs23"m$(i-1):gosub 3710 
print left$(dws,d6+1)z$tsf (i-1)-1I)sas=sasti:goto 2199 
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NM MM MW 
(Al 
> 
o 


MI MI 
[A 
B- 
> 


2359 
2368 


gosub 5628: print:print"Finden bei" 
print:print tab{(4)"1 = einer" 
print:print tab(4)"® = allen" 
print:input"Uebereinstimmungen";ue 
if ue then as=ue 
gosub 3628: close l1:open 1,® 
print:print"Geben Sie Suchstrings "5 
:sif sp<40 then print:print 
print"ein":print:print 
for f=6 to fa-l1:if sft{f)=& then 23390 
print"[rvs3"m$tf)" =: 
print s$(f)"Lup]"sinput#1,s${f):print 
next 
print left$t(dw$,ze)"<{ RETURN >>"5:gosub 1010 
:if a$="k"then print"I[homel":goto 2280 
if a$="g"then return 


if af>13 goto 2740 


KAERRRHRRERRRRHEHKTKTR TR KH TH TH FH N FH FH TH TH TR TH FH FH N FH FH HR FR FH N TH HN NR HH N IHN FH HR NN 


2370 


rem " Suchen 


FERÄRRERRERERRHRRIRTR RR RR TH HH NH FH N HH THF TH HH TH TH HR FH NR HH TR HR TH KH HR HH 


2372 
25374 
2376 
2378 
25898 
2570 
2480 
2410 
2420 


for f=@ to fa-l:if sf(f)then fb=f:f=fa 
next:rem "niedrigstes und hoechstes 

for f=fa-i1 to © step-l:if sf(f)then fe=f:f=0 
next:rem_ "Suchfeld feststellen 

z=d: for r = to rt-1 
for f=fb to fe-i:if sf(f)then u$tf)=e$t(f,r) 

next:rem_ "Untersuchstrings umspeichern 

n=8:f=fb:gosub 186:if n>=as then gf%4tz)=r:z=z+1 
next:if z=@ then 2130 


KRRRRRRRRRRRRRHÄRKERRRUTR RK TH TR TH TR HH TR NH HR TH TH NH TR TH N RR TR HH HH HH HH RT NH HH NR 


2450 


rem " Datensaetze anzeigen 


KERRRRRRHIHRTHHHNKHRKRRERUEERT RN TR TH TH TH TH N TH TH N HR TH HR NET HN RN NH TEN IR HH 


2440 
2450 


2460 
2470 


2480 
24908 


i=® 

gosub 362%: print:print z" Treffer" 

:print"Datensatz Nr."gf%(i) 

ri=gf%ti):gosub 36450 

print left$(dw$,ze)"[green,space3J7{ RETURN >> [Lwhit 
el"5:gosub 191% 

if a$="-"and i>® then i=i-i:goto 2450 


if a$="q"then return 
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2500 
2510 
252 


25350 
2540 


23990 


if a$="a"then gosub 2568:goto 2480 

if ag="l"then 2640 

if a@ö>13 then 2470 

if i<z-1 then i=-i+ti:goto 2450 

gosub 36206: print" [down8,right3,rvs,spacelkeine weite 
rn Daten " 

print left$(dw$,ze)"[green,space317{ RETURN >> [vwhit 


el"s:gosub 16169:goto 245% 


FFRHHEKKRERRHRHHHR TR TF TH HT FE TH TH TH TH TE NR FH FH TH TH TH RR FF FH FH HH FR FF TH TH TH FE N HEFT TH N NH FEN N 


2560 


rem Aendern 


ERRRHHHHIHHRHHHBISHIRRIHHISIHHIHIHIHHHIRISIHHIRIHHHHIHIHIHHIHISIHHHIBHIHIEIHHHNN 


2570 
2590 


2690 
2610 
2620 


close l:open 1,6:r2=rl:gosub 3676 

print left$(dw$,ze)"[green,space3]J<<{ RETURN >> Ewhit 
el"s:gosub 161% 

if a$="k"then 2570 

fl=fl or 4:fl=fl and 2535:return 


return 


FFHHHRFRREEEEREREREHHRE HH HH HF N FF FEN FH NR HH HH HH HH FEN TR HH NH HH TR HF FR ER HER KH N 


2650 


rem " Loeschen 


FFHHERKEHRERHRHRERRTK HR KHK TH TR FH HT HF HH NR NH FH HH HH FH HH RN HH FR HH HR HN NR 


2648 
26598 
2660 
2670 
2680 


for il=gf%4(i)+t1 to rt-i:rem_" Daten 
for j=® to fa-i1:rem " umspeichern 
e$(j,il-1)=e$(j,il) 
next j,il 
z=z-1:rt=rt-1:fl=fl or 4:goto 2459 


KFEHRFEHRHKKRHHHHNKTK TR TK TH TH TH TH TR FH TH TR HT RR FF FH FR HF FH TR HH TH TH TR TR HF NR HR FH HN ER N 


2670 


rem " Liste ausgeben 


KEHHERERREREERRHHHRK TR R TER FE NR NH TH TH N FE TH HE N HF HH FR FH FR HH TR HF HF FF TR FR TR HN HR 


2695 
2708 
2710 
2720 
27253 
27530 


2740 
2750 
2760 
2770 
27808 


if z=8 then return 

poke c1,7*#c2:print"[blue]" 

for i=® to fa-l:sf (i)=®:next 

gosub 3630 

for i=® to fa-l:print i+1"[lleft]. "m$(i)snext 
print:print"Welche Felder sollen "5; 
if sp“40 then print:print 
print"ausgedruckt werden":print:print _ 
gosub 1816:if a=15 then 2819 

if a$="gq"then return 

if a$="k"then 2710 

i=vall(a$):if i<l or i>fa then 27590 
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27970 
2800 
2816 
2820 


if sfti-i)then 27590 

sf (i-1)=1:print"[rvs]1"m$ti-1i):print:goto 7750 
print:input"Ueberschrift";ub# 
print:print"Feldbezeichnungen":print 


sinput"ausdrucken L1/03":fm$ 


2850 fm=val (fm$) 

2848 print:input"Drucker=4/Bilds.=@";5dv 

2858 if dv then open 4,dv,7:cmd 4 

2866 print chr$(14)ub$chr$ (15) :print:print 

2878 for r=® to z-—1 

28980 for f=20 to fa-l:if sft(f)=8 then 291% 

2870 if fm then print:print"[rvs]"m${f)" : [Lrvoff]" 
2900 print e$tf,gf%4tr)) 

2918 next:if dv then 2950 

2920 get at:if a$“7>""then poke 178, 8:wait 198,1:get a# 
2930 print:print:next 

2948 if dv then print#4:close 4:return 

2958 print:print" x<{ RETURN >>" 

2968 gosub 1616:if a<>135 then 296% 

2978 return 
Ba 2 2 2 2 2 2 202 222.2 2 227272 22727202 2272727232 2720272 222272720222 72072 12 27271203222 272272 22 272020273 
2980 rem " Sortieren 

EEHHRRRERKIENKN HEN HINEIN HIERHER HH HIN 
2998 if z=® then return 

3008 gosub 34649 

3818 for i=® to fa-i:print i+i"[lleft]. "m$(i}:znext 

3828 print"[downlJNach welchem Feld "s:if sp{i46 then print 

print 
39358 input"soll sortiert werden";sf:sf=sf-i 
3848 f1=0: fh=0: fh=peek (49) +peek (50) #256 
:rem_ "Übergrenze retten 

3050 fi=peek (47) +peek (48) #256: rem_" Untergrenze retten 
3858 dim n$(z),z(z+1) 

3878 q>1:for i=@ to z-1i1:rem_" _ Sortierfeld 

3880 n$(g)=se$(sf,gf#li)):rem_" umspeichern 

35098 z (g)=q: q=gqti:next 

31080 gosub 3249:rem_" Sortierroutine 

s11@ for x=0 to fa-l 

3130 for y=0 to z-1 

3148 n$(y+1l)=e$(x,gfAty)) 
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3168 
3170 
3180 
SJERQ 


321@ 


3220 


2 
32350 


next 
for y=6 to z-1 
et(x,gf%Aty))=n$tz(y+r1)) 
next y,x 
for i=8 to z-1:n$(i}="":next:rem "Strings von _n$( 
} loeschen 


gosub 352@:rem "Wiederherstellung der alten Zeiger 


return 


HERE HH TH TH TH NH IH HH TH TH TH TH IH HF FH TH HH FH KH FH FH FH TH NH FH NH FH HK FH HH N HH IR HR HE 


32355 


rem " Sortierroutine 


FFEHRHFHFEHKHEHREHHEHHH HN HN IH TH TH TH TH HH TH HH HH HH HH HH FH FH HH FH HR HH HH FF FH KH HH HR 


ti$="8660686":print"[clear]1" 

l=int (z/2) +1 
r=z:print"[clear}]"r"[left,„space3]" 
if 1>1 then 3340 

if ri=1 then 333% 


h2$=n$ (1):hi>=z (1) 
n$(l1)=n${r):z(l)>z(r) 
n$(r)=h2#:z {r}=hl 

r=r-i1 

goto 33590 

'1=1-1 

;-l 

i=2#j 

h2$=n$ (j):hi=z(j) 

if i>r then 53480 

if i>=r then 3420 

if n$ti)>=n$(i+ri)then 3420 
isi+l:print"[clearl"i"[left,space3]" 
if i>’r then 348% 

if h2$>=n$ (i)then 3488 
n$(j)=n#$li):z(j)=z(i) 

ji 

i=2%j 

goto 3376 

n$(j)=h2$:z (j)=hl 

if ri}l then 3270 
print"[clear ,down21Sortierzeit";ti®$ 
return 


KFHERWÄERENIKREHHRRK KHK HH N TR HEN N FH HH HR HH FR HH HR FF HH HR HN 
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3315 


FFERFRRERERKKRKRRRRHHH RT TH HF HN TFT TH NH FH TH TR HR KH FR FH HH KH FH KH HN HH HR HH HF HH HN N 


3320 
3350 
3340 


FERHRRRERERKERKHHHHRT HH TH NH TH THE TH IHR HH HH HH FE HH HH NR HH HN KH HH HH HH 


3545 


FERRKHRFRHRERKRHHHKNK HH N HF HE NH NH HN HH HR N HH NH FH HH NR HH KH RR HER HH N RR 


3330 


33560 


3370 


3580 


33970 


36008 


361® 


5620 


36350 


5640 


FRFAERKERRRRERRERRHR TR HN TH HER FH TH HR RR HR FH NH FEN HH HEN FH TH HR HH HN RN 


3645 


FRFAERRRRERKRKHHNHKER TER RFH REF HH FF TR N FR FH HH TR HH N RHEIN 


3659 


RT 7-17) 
3670 


3680 
3690 
3700 


KEFEERFERRRERRRRERTRR RHEIN TTHTRH HN TR RR HT TH HH TR HH TH FH TH TR FR HE HH TH RR HNR 


rem "Pointer wiederherstellen 


j=-peek (47) +peek (48) #2564+(fh-f1) 
poke 4%,j and 255:poke S0,int (j/256) 


return 
rem " Ueberschriften 


print"[clear]";:print tab (sp/2-18)"* DATEI ERSTELLEN 
*":return 

print"[clear]"5:print tab (sp/2-18)"[Lwhitel]# *#* «ME 
NUE * * *«":return 

print"[clear]"s:print tab (sp/2-9)"* DATEI FFLEGEN #" 
sreturn 

print"[clear,blue]";:print tab (sp/2-10)"* DATEN EING 
EBEN #":return 

print"[clear]"5:print tab (sp/2-8)"#* DATEN SPEICHERN 
*":return 

print"[clear]"5:print tab (sp/2-6)"# DATEN LADEN #" 
sreturn 

print"[clear]"5:print tab(sp/2-8)"* * BLAETTERN # #" 
sreturn 

print"[clear]";5:print tab (sp/2-8) "SUCHEN / AENDERN" 
sreturn 

print"[clear]"5:print tab (sp/2-7)I"LISTE AUSGEBEN" 
return 

print"[clear]1"5:print tab (sp/2-”I"LISTE SORTIEREN" 


sreturn 
rem " Felder ausgeben 


print"Chome, downS1":for f=0 to fa-i1 
ıprint"[rvs]"m&$(f)" : " 
print e$(f,ri):next:return 

print"[Chome, down5]":for f=@ to fa-l 
sprint"Lrvsi"ms(f)" ;..“ 
print e$(f,ri)"Lup]l":a=len(e${(f,r1)) 
if a?>sp then for x=® to a/sp:print"Lup]";:next 


input#1,e${f,r2) :print:next:return 
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3785 rem " Suchform waehlen 
E£ 2 272 2727272722 2 2 2727272 2722 2 72 27222 2272722 2027272 2722027227202 0222720202022 72 27202 272727202 
3718 print left$(dw$,ze-1)"[rvs]11:T/2:=/3:7>/4:>/5 
:<[rvoff1";5 
3728 gosub 1018: j=vall(a$):if j<il or j’5 then 37290 
3730 sf (i-1)>=j 
3748 print left$(dw$,ze-i1)" "ssreturn 
Bu 2 5 2 2 57272257272 027202 27272 27272 2722027272 272722727202 2220272720272 7202 0272020272722 727202727202 °2°27 
3750 rem " Helpseite 
Ex = 2 2 57212 257272 27272027272 27272057202 27272027202 27272 0572727227202 5727222720572 272 27272027272 2727227. 
3768 print"[clearl® *#** «HELPSEITEtRRR OH" 
3778 print:print"Wenn << RETURN >> erscheint haben Sie" 
3788 print:print"Optionen :":print:print 


379@ print"RETURN = weitermachen":print 

3800 print"K = letzte Eingabe wiederholen":print 
3818 print"O = Programmpunkt abbrechen":print 
5828 print"-— = einen Satz zurueck":print 

3830 print"a = einen Satz aendern":print 

584@ print"l = einen Satz loeschen":print 


39850 get at:if a$=""then 3850 
38588 return 


GO0OB VERRRRRRREHIKRRHNRHNNRIEH IHN IN N IN NN 


5918 "* Dateiverwaltung mit Fasttape *#* 
3020 "* (c) Dirk Paulissen * 
3950 "%* * 
580480 "* Verwendete Variablen : * 
s30o50 "* fa = Feldanzahl * 
068 "+ ra = Recordanzahl (max) * 
5070 "* rt = - ”” — (aktuell) * 
Ss080 "x f = aktuelles Feld * 
3098 "* r = aktueller Record * 
5100 "* sp = Spaltenanzahl * 
5110 "* ze = Zeilenzahl * 
5120 '* a$ = Fragestring * 
s1350 "x fl = Flag * 
5140 "* e$(f,r) = Datenstring * 
3150 "# sf(f) = Suchfeldflag * 
3169 "* 1 : Teilstring suchen + 
51780 "* 2 » ganz °=’ * 
5180 "* 3. ganz ’<>’ * 
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31978 '%* 4 2 ganz >=? * 
3200 '%* 3: ganz ’{=?” * 
S3E2@ "8 s$tlf) = Suchstring * 
3230 "* Ust) = Untersuchstring * 
3249 "x gf%0) = Nummer der gefunde- + 
3250 "%* nen Datensaetze * 


IE VRRRERERRKRKRRTHERKKKKRRHHHNNERERRRRNR 
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13.1 PROGRAMMBESCHREIBUNG 
Der Programmaufbau ist folgender: 


90 - 1030 Schnelle Unterprogramme 

1050 - 1090 Initialisierung 

1100 - 1260 Hauptprogramm (Menue) 

1270 - 3540 Unterprogramme, die vom Menue aufge- 
rufen werden 

3550 - 3640 Überschriften 

3650 - 3850 Unterprogramme, die von anderen Unter- 
programmen aufgerufen werden 

5000 - Ende Copyright Vermerk und Aufzählung der 
benutzten -Variablen 


ARBEITSWEISE 


Die Anpassung an die verschiedenen Computer geschieht in 
Zeile 1070 durch den Aufruf der Betriebssystemroutine SCREEN 
(65517). Diese Routine legt die Spalten- und Zeilenzahl in 
den Speicherstellen 781 und 782 ab. Entsprechend dieser 
Werte werden die Speicherstellen und die Werte für die 


FarbPOKE - Befehle gesetzt (C1, C2). 


Das Hauptprogramm besteht nur aus dem Menue und der 
Verzweigung in das gewählte Unterprogramm. zur 
Datensicherheit wurde ein Flag fl eingeführt, welches immer 
am Anfang eines Unterprogramms getestet und innerhalb der 
Unterprogramme gesetzt wird. Die einzelnen Bits von fl haben 


folgende Bedeutung, wenn sie gesetzt sind: 


Bedeutung 


eingerichtet 
Datei gespeichert 
Datei verändert 

Datei enthält Datensätze 


WN 0 
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Wird versucht, eine neue Datei zu laden oder das Programm zu 
beenden, ehe eine geänderte Datei abgespeichert wurde, wird 


in die Fehlerroutine 1305 - 1450 verzweigt. 


Die Programmteile "Laden" und "Speichern" verstehen sich von 
selbst. 


DATEI ERSTELLEN (1700 - 1850) 


Nachdem der Titel durch Zeile 1720 geschrieben wurde, wird 
per INPUT die Feldanzahl (fa) und Datensatzanzahl (ra) 
eingelesen. Durch die Abfrage in 1750 wird es ermöglicht, 


eine fehlerhafte Eingabe zu korrigieren. 


Entsprechend fa und ra werden in 1760 die Felder 


dimensioniert und in 1770 Bit null in fl gesetzt. 


In Zeile 1780 wird Bit null in fl getestet, da die Routine 
zur Eingabe und Änderung der Feldbezeichnungen auch vom 


Menue angesprungen werden kann. 


In Zeile 1800 und 1810 wird der auszugebene String 
entsprechend der Spaltenzahl des Computers in einer oder 


zwei Zeilen ausgedruckt. 


Innerhalb einer Schleife (Zeile 1820 - 1830) werden die 
einzelnen Feldbezeichnungen in m$(fa) eingelesen. Eventuell 
vorhandene werden auf dem Bildschirm ausgegeben und können 


durch RETURN übernommen werden. 
Durch die Abfrage in Zeile 1840 ist wieder eine Korrektur 


möglich. 


DATEN EINGEBEN (1860 - 1990) 


In Zeile 1865 wird fl daraufhin getestet, ob schon eine 


Datei erstellt wurde. 
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In der Zeile 1880 wird durch OPEN 1,0 die Tastatur eröffnet. 
Das hat zur Folge, daß bei einem folgenden INPUT#1 kein 
Fragezeichen ausgegeben wird. Aus Sicherheitsgründen wird 
vor jedem OPEN - Befehl die entsprechende Datei geschlossen. 


Über die Zeilen 1890 - 1900 wird die Überschrift und 
entsprechend der Spaltenzahl ein String ausgegeben. In den 
Unterprogrammen, welche die einzelnen Felder eines Satzes 
anzeigen (3650 - 3660) bzw. neue Felder einlesen 
(3670 - 3700), wird ri bzw. r2 als Satzzeiger benutzt. Aus 
diesem Grunde wird in Zeile 1910 der Zeiger auf den 
einzugebenden Satz rt in ri und r2 übertragen. Wurde schon 
ein Satz eingegeben (rt größer null), wird ri dekrementiert, 
sodaß die Felder des zuletzt eingegebenen Satzes angezeigt 
werden. Ab Zeile 1930 wird abgefragt, ob abgebrochen (a$ = 
"q"), korrigiert (a$ = "k"), beendet (a ungleich 13) oder 
weitergemacht werden soll. Ist a = 13, wird in Zeile 1970 


getestet, ob die maximale Satzzahl erreicht wurde. 


BLÄTTERN (2000) 


Mit Hilfe der Laufvariablen ri werden über das Unterprogramm 
"Felder ausgeben" die einzelnen Datensätze angezeigt und 
dann die Tastatur über die "Warteschleife" (1010) abgefragt. 
Entsprechend der Eingabe wird weitergeblättert (2100), zum 
Menue zurückgekehrt (2070) oder in das Unterprogramm 


"Ändern" (2080) verzweigt. 


DATEI PFLEGEN (2130) 


Nach Abfrage von fl und BildschirmPOKE werden die Suchflags 
(s£f(i)) auf null gesetzt (2150). Über die "Warteschleife" 
wird ab Zeile 2190 abgefragt, ab welchem Feld gesucht werden 
soll. Wurde eine gültige, noch nicht gewählte Feldnummer 
eingegeben (der Test dafür ist in Zeile 2220 - 2230), wird 
in Zeile 2240 die aktuelle Cursorzeile in d6 gerettet und in 
Zeile 2250 die Feldbezeichnung des gewünschten Feldes 


ausgedruckt. 
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Über das Unterprogramm "Suchform wählen" ab Zeile 3710 wird 
der Index der gewünschten Suchform in das entsprechende 


Suchflag eingelesen. 


Mit Hilfe der geretteten Cursorzeile (d6) wird dann in Zeile 
2260 das entsprechende Suchformzeichen vor die 
Feldbezeichnung gesetzt und zur Abfrage nach weiteren 


Suchfeldern zurückgesprungen. 


In den Zeilen 2262 - 2267 wird die gewünschte Anzahl der 
Übereinstimmungen in ue geschrieben. Über die Zeilen 
2280 - 2360 werden die Suchstrings in das Feld s$(£) 


eingelesen. 


Da die eigentliche Suchroutine in jedem Datensatz die Felder 
von einem Startfeld bis zu einem Endfeld untersucht, wird in 
Zeile 2372 - 2378 der niedrigste und höchste Feldindex 
festgestellt und in fb, fe gerettet, um so die Suchzeit zu 


optimieren. 


Die Hauptsuchschleife über die einzelnen Datensätze beginnt 
ab Zeile 2380. In Zeile 2390 werden die zu untersuchenden 
Strings in das Feld u$(i) übertragen. In der Zeile 2410 wird 
der Index für gefundene Übereinstimmungen n auf null und £ 
auf das Startfeld gesetzt, bevor in die eigentliche 


Suchroutine ab Zeile 100 gesprungen wird. 


Die Suchroutine liegt aus Zeitgründen am Programmanfang, da 
die Zieladresse nach einem Sprung (GOTO, GOSUB) entweder 
hinter der aufrufenden Zeile oder ab Programmanfang gesucht 
wird. Würde die Routine am Programmende liegen, müßte bei 
einem Sprung in eine vorherige Zeile immer das ganze 
Programm nach der Zielzeilennummer durchsucht werden, was 


bei längeren Dateien die Suchzeit merklich verlängern würde. 


Am Anfang der Suchroutine wird getestet, ob schon alle 
gewünschten Felder durchsucht wurden, oder ob die gewünschte 
Anzahl der Übereinstimmungen gefunden wurde. Ist dies nicht 
der Fall, wird über das Feld sf(f) der gewünschte Vergleich 
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angesprungen. 


Ist der entsprechende Vergleich logisch wahr, wird der 
Übereinstimmungszähler erhöht. Nachdem der Feldindex f£ 
erhöht wurde, wird zum Start zurückgesprungen. Nach dem 
Rücksprung in die Zeile 2410 wird, wenn die gewünschte 
Übereinstimmungszahl erreicht wurde, die Datensatznummer in 


das Feld gf%(z) geschrieben und die Trefferzahl z 


inkrementiert. 


Nach Abschluß des Suchens werden die Treffer analog zum 


Unterprogramm "Blättern" angezeigt (2430 - 2550). 


LISTE AUSGEBEN (2690 - 2970) 


Diese Routine gibt die durch das Feld gf%(i) bestimmten 
Datensätze entweder auf den Bildschirm oder dem Drucker aus. 
Die Abfrage nach den auszudruckenden Feldern ist analog zu 


der Feldbestimmung im Unterprogramm "Suchen". 


SORTIEREN (2980 - 3510) 


Nach der Abfrage, ob eine Liste erstellt wurde und nach der 
Ausgabe der Überschrift auf den Bildschirm (2990 - 3000) 
wird das Feld, nach dem sortiert werden soll, abgefragt, und 


der entsprechende Index in sf geschrieben. 


Für die folgende Sortierroutine werden einige Hilfsfelder 
benötigt, deren Größe vom Listenumfang abhängt. Da Felder 
aber normalerweise nur einmal dimensioniert werden dürfen, 
hätte ich bei der Initialisierung die Hilfsfelder n$(i) und 
z(i) mit der maximalen Datensatzanzahl dimensionieren 
müssen. Das würde einerseits viel Speicherplatz schlucken 
und andererseits die Lade- und Speicherzeit vom bzw. auf 
Band verlängern. Mit einem Kunstgriff ist es aber möglich, 
Fehler selektiv zu löschen und somit redimensionierbar zu 


machen. 
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Dieser Kunstgriff besteht darin, vor einer neuen 
Dimensionierung die Ober- und Untergrenze des Bereiches, in 
dem der Computer die Felder ablegt zu retten. Die danach 
dimensionierten Felder können dann durch Rücksetzen der 


Zeiger auf die alte Länge der Feldertabelle gelöscht werden. 


Aus diesem Grunde werden in den Zeilen 3040 und 3050 die 
Zeiger auf den Start und das Ende der Feldertabelle in f1 
und fh gerettet. 


In der Zeile 3060 werden die Hilfsfelder entsprechend des 


Listenumfangs dimensioniert. 


Durch die Schleife in den Zeilen 3070 bis 3090 wird das 
entsprechende Datensatzfeld eines jeden in der Liste 
befindlichen Datensatzes in n$(i) übertragen. Dieses 
Stringfeld wird später sortiert. Damit danach die 
entsprechenden anderen Felder eines Datensatzes dem 
sortierten Feld zugeordnet werden können, wird in z(i) ein 
"Pointer" angelegt, der die Position des entsprechenden 


Datensatzes innerhalb der Liste enthält. 


Die Sortierroutine verarbeitet nur Felder mit Indizes ab 
eins. Im Datenfeld e$(f,r) sind die Datenfelder aber ab 
Index null abgespeichert. Aus diesem Grund müssen die Daten 
und der Pointer jeweils in eine Feldvariable mit einem 
Index, der um eins höher ist als der im Datenfeld, 


umgespeichert werden. 


Bei der Umspeicherroutine wird der erhöhte Index dreimal 
benötigt (Index von n$, Index von z, Pointer in z). Damit 
innerhalb der Umspeicherschleife nicht dreimal "i+1" 
berechnet werden muß, habe ich aus Zeitgründen eine 
Hilfsvariable q definiert, die innerhalb der Schleife nur 


einmal inkrementiert werden muß. 


In Zeile 3100 wird in die Sortierroutine (3240 - 3510) 
verzweigt. Diese Routine sortiert das eindimensionale Feld 
n$(i) durch entsprechendes Vertauschen der Inhalte von 
n$(i). Bei jedem Tauschvorgang wird auch der Inhalt des 
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Pointers vertauscht. Am besten wird dies durch ein Beispiel 
klar. Nehmen wir an, fünf Namen sollen sortiert werden, die 


in folgender Reihenfolge in den Feldern stehen: 


ll 
BD WW N — 


n$(1) Max z(1) 
n$(2) = Alfred z(2) 
n$(3) = Peter z(3) 
n$(4) = Dirk z(4) 


Nach dem.Sortieren erhalten wir: 


n$(1) = Alfred z(1) = 2 
n$(2) = Dirk z(2) = 4 
n$(3) = Max z(3) = 1 
n$(4) = Peter z(4) = 3 


Der Index von z gibt nun die aufsteigende Reihenfolge der 
sortierten Strings an und der Inhalt von jedem z die 
Datensatznummer, die an der entsprechenden Position stehen 
muß. 


In der Schleife Zeile 3110 - 3200 werden die Datenfelder 


entsprechend dem Pointer vertauscht. 


Die äußere Schleife zählt über die Felder. In der ersten 
inneren Schleife wird das entsprechende Feld (durch x 
bestimmt) aller Datensätze in der alten Reihenfolge in das 


Feld n$(i) übertragen. 


In der zweiten inneren Schleife werden dann die Inhalte von 
n$(i) entsprechend dem Pointer z(i) in das Datenfeld 


sortiert zurückgeschrieben. 


Ab Zeile 3210 werden die Hilfsfelder wieder gelöscht. Zuerst 
werden die Strings gelöscht, um den Stringvektor im Merkheft 
des Rechners zurückzusetzen. Über das Unterprogramm in den 
Zeilen 3520 - 3540 wird zu dem aktuellen Start der 
Feldertabelle die gerettete Länge addiert und als 
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Feldertabellenende in den Vektor 49, 50 geschrieben. 


Ich hoffe, daß Ihnen nun die Arbeitsweise dieses Programms 
einigermaßen klargeworden ist und Sie nun wissen, wo und wie 
Sie dieses Programm Ihren eigenen Wünschen noch besser 
anpassen können. Ich könnte mir z.B. noch folgende 


Anpassungen denken: 


- Druckerausgabe; der Datei entsprechend formatierte 


Ausgabe. 


- Helpseite; diese Bildschirmausgabe könnte man auf 
einer separaten Bildschirmseite schreiben, die dann 
mit Hilfe von POKE-Befehlen mit der aktuellen 
Bildschirmseite ausgetauscht wird. Das ist eine 
Anpassung, die besonders für C-64 Anwender 
interessant ist; hier könnte man die zusätzliche 
Bildschirmseite unter das Betriebssystem-ROM (ab 
$AO00) schreiben, sodaß kein Basic-Speicherplatz 
verlorengeht. 
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14. CC-INHALT UND KATALOG FÜR FASTTAPE-CASSETTEN 


Im Kapitel 7 habe ich Ihnen ein Programm beschrieben, das 
ein Inhaltsverzeichnis Ihrer Cassetten erstellt. Solch eine 
Inhaltsübersicht möchten Sie sich bestimmt auch für Ihre 
FastTape-Cassetten anlegen. Darum finden Sie hier ein 


Listing eines Programms, welches genauso arbeitet wie das in 


Kapitel 7. 


90 REMFRFFRIRERERRIERRERRIERKERKRKTRRRKREN 

95 REM* 

100 REM* INHALTSVERZEICHNIS 

101 REM* 

103 REM® VON FASTTAPE CASSETTEN 

104 REM* 

105 REM* (C) DIRK PAULISSEN 

106 REM#* 

107 REMFFRRREERARREERRRERIERTRTERERTKETFRRIKRNR 

108 REM V=.7:KL=.54 :REM KONSTANTEN FUER ZAEHLERBERECHNU 
NGEN C60 

109 V=.5:KL=.482:REM KONSTANTEN FUER ZAEHLERBERECHNUNGEN 
C90 | 

110 PA=828:REM STARTADRESSE IM CASSETTENPUFFER 

115 SA=171 :REM SEKUNDAERADRESSE +1 

116 PRINT" LCLEAR,SPACE11IJINHALTSVERZEICHNIS" 

117 PRINT:PRINT" FUER FASTTAPE CASSETTEN" 

120 PRINT"LDOWNZIDRUCKEN ? LJ/NI ";D$ 

130 GET D$: IF D$=""THEN 130 

136 TA$=CHR$ (16) 

140 Ti$=TA$+"05" 2 T2$=TA$+" 10": T3$=TAS+" 19": T4$5=TA$+"27" 
ı T5$=TA$+"35" 

142 T6$=TA$+"43": T7$=TA$+"ö1":REM TAB’S 

145 IF D$<>"J"THEN 170 

150 OPEN 2,4 :REM DRUCKER OEFFNEN 

160 PRINT#2,T1$"LFN" 5; T2$" ZAEHLER" 5 T3$"K-BYTE"3 T4$" ANFAN 
G"T5$" ENDE"; 


L Ze Ze Zr Ze Ze Ze 
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162 PRINT#2,T6#" - NAME" T7#"SEKADR." 
165 PRINT#2 
190 SYS 49674:REM VC20 = 29183 


200 A$=": "+RIGHT$(" "+STR$ (PEEK (PA) + (Z56*PEEK (PA+1)) 
-),6) | 

210 B$="C"+RIGHT$(" "+STR$ (PEEK (PA+2) + (256*PEEK (PA+3) 
)-1),6) 

220 C$=": ":FOR I=5 TO 20:C$=C$+CHR$ (PEEK (PA+I) ) :NEXT 
:C$=C$+":" 


230 T=VAL (RIGHT$ (B$,5)) -VAL(RIGHT$(AF,S)) 
:K$=STR$ (INT (T/1024*1000+.5) 7/1000) 

235 K$=RIGHT$(" "+STR$(INT(T/1024*1000+.5)/1000) ,6) 

240 SA$=STR$ (PEEK (SA) -1) 

250 FRINT Z;KFA$B$: PRINT C$: PRINT 

252 FA=1+2%#(Z/4400):REM ABHAENGIGER FAKTOR ZUR ZAEHLER 
BERECHNUNG 

255 Z1=2:Z=INT (Z+V#FA+(T/1024)#(KL*FA)) 
:REM BANDZAEHLER BERECHNEN 

256 PRINT"NACHSTER ZAEHLERSTAND cA."Z 

260 N=N+1:N$=RIGHT#(" "+5TR# (N) ,3) 

270 IF D$="J"THEN PRINT#2,T1$; N$; T2$; Z15 T3$; K$; T4$5 A$; T5$ 
; B$; T6$; C#$; T7$S5A$ 

500 GOTO 190 


Das in Kapitel 10.1 beschriebene Katalogprogramm arbeitet 


nach entsprechender Änderung ebenfalls mit FastTape. 


Sie müssen | nur die normalen LOAD-Befehle gegen 
FastTape-Befehle austauschen. Da die Synchronisation bei 
FastTape-Programmen bedeutend kürzer ist als bei normal 
abgespeicherten Programmen, empfiehlt es sich, die Programme 
nicht direkt hintereinander abzuspeichern, sondern jeweils 


ca. 5 sec Zwischenraum zu lassen. 
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15. BACKUP VON DISK AUF CC UND UMGEKEHRT 


Dieses Kapitel ist für diejenigen bestimmt, die sowohl ein 
Diskettengerät besitzen als auch einen Datenrecorder. Eine 
Datencassette ist bedeutend robuster und weniger 
störungsanfällig als eine Diskette. Darum lohnt es sich auch 
für einen Diskettenbesitzer, wichtige Programme auf Cassette 
zu speichern. Auch gibt es viele, die selbst nur einen 
Cassettenrecorder haben, aber einen Freund besitzen, der 
eine Diskettenstation hat. Mit den folgenden Programmen ist 
es nun viel einfacher, Programme untereinander 


auszutauschen. 


15.1 BACKUP VON CASSETTE AUF DISK 


Mit diesem Backup-Programm haben Sie die Möglichkeit, 
mehrere FastTape-Programme, die hintereinander auf einer 
Cassette gespeichert sind, auf eine Diskette umzuspeichern. 


Für das Programm ist es unerheblich, ob es sich um Basic- 
oder Maschinensprache-Programme handelt. Die Programme 
werden alle so kopiert, daß sie voll lauffähig sind, egal 
von welchem Speichermedium Sie es wieder einladen. Wichtig 
ist nur, daß alle Programme, die Sie kopieren wollen, einen 
Namen haben, da die Diskettenstation im Gegensatz zum 


Datenrecorder namenlose Files nicht akzeptiert. 

Da das Backup-Programm mit FastTape arbeitet, müssen Sie das 
FastTape-Programm laden, bevor Sie das Backup-Programm 
starten. 


Die Bedienung ist denkbar einfach. 


Geben Sie das Programm in Ihren Rechner ein und speichern 


Sie es vor dem Starten ab, da es sich selber nach dem 
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Starten löscht. Wenn Sie nun das Programm starten, wird 
zuerst das Maschinenprogramm in den Speicher ab $C3c0o 
($73CO) hinter das FastTape-Programm geschrieben. Dann 
werden Sie nach der Anzahl der zu kopierenden Programme 
gefragt. Dieser Wert wird in der Speicherstelle 767 für das 


Maschinenprogramm zwischengespeichert. 


Als nächstes müssen Sie eine formatierte Diskette in das 
Diskettenlaufwerk und die Cassette mit den zu kopierenden 
Programmen in den Datenrecorder legen. Nach Drücken der 
RETURN-Taste verzweigt das Basic-Programm in das 
Maschinenprogramm. Dies liest nun das erste Programm in den 
Basicram (der komplette Basicram wird als Puffer benutzt). 
Danach wird das Programm aus dem Speicher auf Diskette 
geschrieben. Dieser Vorgang wird nun der Anzahl der 
Programme entsprechend wiederholt. Am Ende kehrt der Rechner 


wieder in den Direktmodus zurück. 


Wollen Sie nun noch weitere Programme kopieren, müssen Sie 
die Programmanzahl win die Speicherstelle 767 POKEn und das 
Maschinenprogramm erneut durch SYS 50112 (SYS 28672 beim 
VC 20) starten. 
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BACKUF T=>D 


85: L3CO 
86: C35Co 
98: C35Co 


108: CS5CO 
110: C35CO 
110: CSC® 


158: C35C9 
159: Cc5co 
150: C35C0 
1590: C3CO 


166: C3CO 
168%:  CSC® 
200:  000D 
205: 9882 
210:  BBAC 
220:  G®AE 
230:  033C 
248: O2FF 
245: 0803 
259:  CISE 
260: A642 
2790: #437 
2806:  F693 
290:  C3C® 
2908:  C3C® 
308:  FFB7 
3180: FFBA 
3206: FFBD 
325: FFC® 
330:  FFC3 
335: FFC® 
346:  FFCC 
350: FFD2 
950:  C3SCO 
950:  C3CO 
955:  C3CO 
955:  C3CO 


968: 
970: C3C® 
970: C35C® 


10080: CSC® 
1010: LESC2 
19820: UCS3SC5 
1050: C35C8 
1048: CSCB 
10850: CSCE 
10588: UCSD® 
1070: UCS3DS 
1082: C3D4 
1082: C5D4 


A? 
20 
20 
20 
CE 
Fe 
4C 
68 


PROFI-ASS 64 V2.0 


x KK 


ER 
ABSFLG 
STARTV 
ENDVEC 
CASPUF 
ANZAHL 
CSTART 
LOADR 
NEW 
ERROR 
MSSG 


STATUS 
SETLFS 
SETNAM 
DPEN 
CLOSE 
CHKOUT 
CLRCH 
BSOUT 


„PA 
„TI 
„Op 
*= 


BACKUP VON CC AUF DIKETTE 


FUR 


ae | | Eu Eu u u 


SEITE 1 


G 61 

= 

T P2,01 
$C3CO 


MIT FASTTAPE 


; HAUPTPROGRAMM 


START 


ENDE 


LDA 
JSR 
JSR 
JSR 
DEC 
BEQO 
JMP 
RTS 


#500 
NEW 
CLOAD 
DSAVE 
ANZAHL 
ENDE 
START 
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. 


"BACKUP T=>D" 


; VC20 


AUSDRUECKE IN KLAMMERN GELTEN 
vC 28 


($12053) 
($7188) 
($C542) 
($C437) 
($F72C) 


= $735C0 


FERHRFHRHRRRRERKRERKTKRH RN N N KH NH NH TR RR RN 


x KK 


RRRRERRIKHRRNRHKRKN RN NH NEN HN KIN HN HEN N 


PUFFERSTART 
FASTTAPE LADEN 
BASIC-BEF. NEW 
BASIC-WARMSTART 
MELDUNG AUSGEBEN 


BACKUP T=>D 


1684: 
1084: 
1086: 
1088: 
1088: 
1089: 
1098: 
1092: 
1093: 
1095: 
1100: 
1118: 
1128: 
1130: 
1140: 
1150: 
1160: 
1170: 
1180: 
1190: 
1200: 
1210: 
12290: 
12350: 
1240: 
1250: 
1260: 
1270: 
1280: 
1290: 
1300: 
1310: 
1329: 
1330: 
1340: 
1350: 
1360: 
1370: 
1380: 
1390: 
1400: 
1410: 
1420: 
1430: 
1440: 
1450: 
1468: 
1470: 
1480: 
1490: 
15908: 
1510: 
1520: 
15530: 
1549: 
1550: 
1569: 
1570: 
15809: 


C5D4 
C5D4 


C3D4 
C5D4 
C5D4 
C5D& 
C35D8 
C3DA 
C5DD 
UCSEO 
C3E2 
CSES 
C35E7 
CSEB 
CSEB 
CSED 
CSEF 
C5Fi 
CSFS3 
E35F4 
C35F& 
C35FY 
C35FA 
CSFC 
C35FF 
C40908 
c402 
485 
C4965 
C408 
cC40B 
C40C 
C40D 
C4OF 
c411 
2414 
C416 
c418 
EA41A 
C41D 
c420 
c422 
C425 
c427 
c429 
C42B 
cC42D 
C430 
C431 
c454 
C455 
[456 
C458 
c43A 
C45D 
C43F 
c440 
C443 


PROFI-ASS 64 V2.0 


053 


083 


03 


05 


FF 


FF 
FF 


FF 


05 


053 


853 


05 


SEITE 2 


;s AUF DISK SPEICHERN 


LDA 
LDX 
LDY 
JSR 
JSR 
LDA 
JSR 
LDX 
DEX 
LDA 
CMP 
BNE 
EPX 
BNE 
INX 
LDA # 0} s . 
STA CASPUF+5,X 
INX ‚ 
LDA 3#"P" 

STA CASPUF+5,X 
INX 
LDA 
STA 
INX 
LDA 
sTA 
INX 
TXA 
LDX 
"LDY 
JSR 
LDA 
LDX 
LDY 
JSR 
JSR 
LDX 
JSR 
LDA 
LDX 
STA 
STX 
LDA 
SEC 
SBC 
PHP 
£CLC 
ADC 
STA 
LDA 
ADC 
PLP 
SBC 
STA 


#$10 
#541 
#505 
SETNAM 
MSSG ’ 
#CR 
BSOUT D) 
#$10 


DSAVE 


CASPUF+5,X 
#320 
ENDNAM 
#500 
ELOOP 
ENDNAM 


4" > 2 
CASPUF+5,X 


"WW" 
CASPUF+S5,X 


#541 
#505 
SETNAM 
#508 
#598 
#501 
SETLFS 
OPEN 
#508 
CHKOUT 
#<CSTART 
#>CSTART 
STARTV 
STARTV+1 
CASPUF+2 


CASPUF 


STARTV 
ENDVEC 
CASPUF+3 
STARTV+1 


CASPUF +1 
ENDVEC+1 
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NAMENPARAMETER 
SETZEN 


” SAVING NAME ” AUSGEBEN 


NEUE ZEILE 


ENDE DES FILENAMEN 
SUCHEN UND ?’ „P,W ? 


ANHAENGEN 


LAENGE DES FILENAMEN 
STARTADR DES oo» 


FILENUMMER 
GERAETENUMMER 
SECUNDAERADR. 


; ENDADRESSE BERECHNEN 

AUS DIFFERENZ START- + ENDADR. 
AUS DEM HEADER PLUS BESTIMMTER 
STARTADERSSE 


BACKUP T=>D 


15980: C445 
1600: C448 
1619: C44B 
16280: C44E 
1622: C451 
1622: C451 
1623: 

1624: C451 
1624: C451 
1630: C451 
1640: C4AS55 
16590: C455 
1660: C458 
16790: CASA 
1689: C45SC 
16890: CASE 
1700: C460 
1710: C462 
1720: C464 
1739: C466& 
17490: C468 
17590: C46B 
17690: C4&D 
1762: C470 
1762: C470 
1764: C470 
1764: C470 
1766: 

1768: C470 
1768: C470 
1770: C470 
1780: C472 
1790: C474 
1800: [476 
1810: C478 
1820: C47A 
1830: C4A7C 
18490: CATE 
1850: C480 
18408: C482 
1879: C484 
1880: C497 
1890: C489 
1900: C4A48B 
19190: CASE 
1922: C491 
1922: C491 
1924: 

1926: C491 
1926: C491 
19390: C491 
19480: C494 
19590: C496 
19650: C498 
19790: CA9IA 
19806: C4A9D 
‚ÜC35CO-C49E 


AD 
20 
AD 
20 


PROFI-ASS 64 V2.0 


Sc 
D2 
SD 
D2 


03 
FF 
03 
FF 


FF 


FF 


FF 


FF 


FF 
c1 


FF 


na 


LDA 
JSR 
LDA 
JSR 


SEITE 3 


CASPUF 3; PROGRAMMSTARTADR. 
BSOUT ;s ZUR DISK SENDEN 
CASPUF+1 

BSOUT 


; SPEICHERSCHLEIFE 


PSAVE 


NOTHI 


;s VON CC 


CLOAD 


;s STATUS 


HOLSTA 


OK 


LDY 
LDA 
JSR 
INC 
BNE 
INC 
LDA 
CMP 


LDA- 


SBC 
BCC 
JSR 
LDA 
JMP 


#590 

(STARTV),Y 

BSOUT 

STARTV 3; ADRESSE ERHOEHEN 
NOTHI 

STARTV+1 

STARTV 

ENDVEC ; ENDADRESSE ERREICHT 
STARTV+1 

ENDVEC+1 

PSAVE 

CLRCH 

#$08 

CLOSE 


LADEN 


LDX 
LDY 
LDA 
STX 
STX 
STY 
STA 
LDA 
STA 
LDA 
JSR 
LDX 
LDY 
JSR 
JSR 


#500 

#<CSTART 

#>CSTART 

SA ; LOAD/VERIFY FLAG 
595 
$AC 
$AD 

#1+4 ; AN BESTIMMTE ADRESSE, 
ABSFLG 3; NICHT WARTEN 

#500 ; KEINEN FILENAMEN 
SETNAM 

#501 ; 6A 
#500 ;s 5A 
SETLFS 

LOADR 


TESTEN 


JSR 
AND 
BEO 
LDX 
JMP 
RTS 


STATUS 
#$BF 
OK 
#$1D 
ERROR 
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100 
110 


120 
130 
140 
130 
169 
170 
189 
172 
2008 
210 
220 


230 


GOSUB 248 
PRINT"IELEARTRRHRRERHHERRERHHRHRHRRRLLEFTZ, DOWNI#LUP 
Ja 

PRINT"LUPI*BACKUP MIT FASTTAPE **LLEFT2,DOWNI*"; 
PRINT"* VON CC AUF DISK +#*L[LEFT2, DOWNI#"; 
PRINT"*(C) DIRK PAULISSEN *#*[LLEFT2,DOWNI#"5 

PRINT" EHRRRERHERRHRH" 

PRINT: PRINT:PRINT"WIEVIELE PROGRAMME WOLLEN SIE" 
PRINT: INPUT"COPIEREN "AZ 

POKE 767, AZ 

PRINT:PRINT:FRINT"LEGEN SIE DIE QUELLCASSETTE EIN" 
PRINT"LDOWNJUND DRUECKEN SIE << RETURN >>" | 

GET A$: IF A$<>CHR$ (13) THEN 210 

SYS 29632 

END 


KRRRRERKEKRIRHKHNRKHITH TH TR TH TR HN TH N HR TH TEN HN HE HH TH HH N HN RIFF N RR RR HR RR 


240 


REM LADEFROGRAMM FASTCOPY T-D 28 


KRERREKRKRRKRNKRRKHNTH IR FH HN NH IH TH TH TR HN N TH TH HR HH HH HH RN HN FH RR HH RR 


230 
260 
280 
290 
1717) 


318 


530 


540 


330 


1-17] 


370 


=29853: A=29632: PS=0 
FOR I=A TO E:READ X:POKE I,X:PS=PS+X:NEXT 

IF PS<>27173 THEN PRINT"FEHLER IN DATAS":END 

RETURN | 

DATA 169,0,32,66, 198,32, 112,116,32,212, 115, 206, 255,2 
‚248,3,76,192,115,96 

DATA 169,16, 162,65, 160,3,32, 189, 255, 32,44, 247,169,13, 
32,210, 255,162, 16,202 | | 

DATA 189,65,3,201,32,208,4,224,0,208,244,232,169,44, 
157,65, 3,232, 169,80 

DATA 157,65,3,232,169, 44,157, 65,3, 232, 169,87,157,65, 
3,232, 138,162,65, 160 = . 

DATA 3,32,189,255,169,8,162,8,160,1,32, 186,255, 32,19 
2,255, 162,8,32, 201,255 | 
DATA 169,3,162,18,133, 172, 134,173, 173,62, 3,56, 237,60, 
3,8, 24,181,172,133 

DATA 174,173,63,3,101,173,40,237,61,3,133,175,173,60 
„3,32, 210, 255,173,61. 

DATA 3,32, 210, 255,160, 0,177,172,32,210, 255, 230, 172,2 
08,2,230,173,165,172 | | 


158 


4108 


DATA 197,174,165,173,229,175,144,233,32,264,255,169, 
8,76, 195, 255,162,8,168 
DATA 3,169,18,134,10,134, 147,132, 172,133, 173,169,5,1 
33,2,169,0,32,189,255 


DATA 162,1,160,0,32, 186, 255,32, 136,113,32,183, 255,41, 


191,240,5,162,29,76 
DATA 55,196,96 
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190 
118 


GOSUB 2408 

PRINT "LCLEARIFHRRREERERRHRRREHR HR HN TH HR HH TH HN HH TH HN RR NER 
*C[LEFT, DOWNJ#LURI%*" 

PRINT"#* BACKUP MIT FASTTAPE ##[LEFT 
2, DOWNI1%*"; 


PRINT"* VON CASSETTE AUF DISKETTE **L[LLEFT 
2, DOWNI*" 35 
PRINT"x* {C) DIRK PAULISSEN **LLEFT 


2, DOWNI1%*" 35 

PRINT" Ha RER EEE RER HEHE RR HH HR HH RK RR" 
PRINT: PRINT:PRINT"WIEVIELE PROGRAMME WOLLEN SIE" 
PRINT: INPUT"COPIEREN ";AZ 

POKE 767,RAZ 

PRINT: PRINT:PRINT"LEGEN SIE DIE QELLCASSETTE EIN" 
PRINT"EDOWNJIUND DRUECKEN SIE <“ RETURN >>" 

GET A$: IF A$<>CHR$ (15) THEN 210 

sySs Seill2. 

END 


KERHRERERRRRKHKHRRNK TR NN NN HH NH IH HH TR TH HH FH FR N HN HH HER FF FH FH HF HH HR N HH 


240 


REM LADEPRDOGRAMM FASTCOPY T-D 64 


KRERRERERERRRHKRHRKHN HT TH FH TH HT FH FE NH FH TR RN FH HF FR HR NH FH TH RR IH FEN HR HH FH HH NR 


259 


260 


270 


280 


290 


500 


310 


320 


330 


340 


350 


E=50333: A=50112:PS=6 

FOR I=A TO E:READ X:POKE 1,X:PS=PS+X:NEXT 

IF PS<>27517 THEN PRINT"FEHLER IN DATAS":END 

RETURN 

DATA 169,0,32,66,166,32,112,196,32,212, 195, 206,255, 2 
‚240,3,76,192,195,96 

DATA 169,16,162,65,160,3,32, 189, 255,32, 147,246, 169,1 

3,32, 210, 255,162,16 

DATA 202, 189,65,3,201,32,208,4,224,0, 208, 244,232,169, 
44,157,65,3,232,169 

DATA 89,157,65,3,232, 169,44, 157,65,3,232,169,87,157, 

65, 3,232, 138, 162,65 

DATA 169, 3,32, 189, 255,169,8,162,8,160,1,32, 186, 255,3 
2,192, 255,162,8, 32,201 

DATA 255, 169,3,162,8,133,172,134,173,173,62,3,56,237, 
60,3,8,24,1801,172,133 | 

DATA 174,173,63,3,101,173,40,237,61,3,133, 175, 173,68 
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5970 


400 


„3,32, 210,255, 173,61 
DATA 3,32, 210,255, 160,0,177,172,32, 210, 255, 230, 172,2 

08, 2,2360, 173,165, 172 

DATA 197,174,165,173,229,175, 144,233, 32,204, 255,169, 

8,76, 195,255, 162,0, 168 

DATA 3,169,8,134,19,134,147,132,172,133,173,169,5,13 

3,2,169,0,32,189, 255 

DATA 162,1,160,0,32, 186, 255,32, 142,193,32, 183, 255,41, 
191,240,5,162,29,76 | 
DATA 55,164,96 
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15.2 PROGRAMMBESCHREIBUNG BACKUP CC-DISK 


Für diejenigen Leser, die zumindest Grundkenntnisse in 
ASSEMBLER-Programmierung haben, : möchte ich das 
ASSEMBLER-Listing etwas näher erklären. 


Die Hauptschleife des Programms steht ab $C30C0O bis $C3D3. 
Zuerst werden durch den NEW-Befehl alle Basic-Vektoren 
zurückgesetzt. Dann wird zur Cassettenloadroutine CLOAD 
verzweigt; nach der Ausführung dieses Unterprogramms wird 
das Programm durch DSAVE auf Disk gespeichert. Nachdem 
ANZAHL dekrementiert und getestet wurde, wird zum Start 


zurückgesprungen. 


CLOAD ($C469) 


Der Pufferstart CSTART wird in die Speicherstellen $AC, $AD 
übertragen. Aus diesen Speicherstellen holt sich FastTape 
die erforderliche Ladeadresse. Weiterhin werden die 
LOAD/VERIFY-Flags auf O = LOAD gesetzt. Durch das Setzen von 
Bit null und zwei in ABSFLG wird das FastTape-Programm 
veranlaßt, an die Adresse zu laden, die in $AC und $AD 
übergeben wird, und nach dem Finden des Programms nicht zu 


stoppen. 


Ab $C47B werden die notwendigen Vorbereitungsroutinen des 
Betriebssystems SETNAM und SETLFS aufgerufen. 


Danach wird zum FastTape-Unterprogramm LOADR verzweigt. Nach 
dem Ladevorgang wird der STATUS getestet und in die 


Hauptschleife zurückgesprungen. 


DSAVE 


Das Speichern auf Diskette ist etwas komplizierter. Zuerst 
wird über Betriebssystemroutinen "SAVING name" ausgegeben. 
Von $C3DE bis $C3EA wird das Ende des Filenamens, der im 
Cassettenpuffer steht, festgestellt, indem vom Ende her 
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solange auf "SPACE" getestet wird, bis ein anderes Zeichen 


gefunden wird. 


In den folgenden Zeilen bis $C401 wird ",P,W" (Programm, 
Write) an den Filenamen angehängt. Über das X-Register wird 


die Länge des kompletten Filenamen bestimmt. 


Ab $C465 beginnen die notwendigen Vorbereitungsroutinen zur 
Diskettenspeicherung SETNAM, SETLFS, OPEN, CHKOUT. Danach 
wird der Startvektor wieder auf den Pufferstart gesetzt. Die 
Endadresse des eingeladenen Programms wird aus der Differenz 
von Start und Endadresse aus dem Cassettenpuffer plus 
Startadresse des Puffers berechnet ($C426 - $C43C). Bei der 
Diskettenspeicherung geben die ersten beiden Bytes die 
Adresse an, von der es abgespeichert wurde. Diese Adresse 
steht als Startadresse im Cassettenpuffer. Sie wird in 
$CH3E - $C447 an die Diskette übermittelt. 


Ab PSAVE ($C44A) beginnt die eigentliche 
Programmspeicherung. In das Y-Register wird O geladen, und 
die Programmbytes werden indirekt-indiziert in den 
Akkumulator geladen und über BASOUT an die Diskettenstation 
gesandt. Danach wird der Startvektor inkrementiert und mit 
dem Endvektor verglichen. Sind sie nicht gleich, wird wieder 


nach PSAVE gesprungen. 


Sind die Vektoren gleich, wird der Diskettenausgabekanal 


geschlossen und zur Hauptschleife zurückgesprungen. 


15.3 BACKUP VON DISKETTE AUF CASSETTE 


Mit diesem Programm haben Sie die Möglichkeit, sehr 
komfortabel ein oder mehrere Programme von einer Diskette 
auf eine oder mehrere Cassetten zu übertragen. Die Eingabe 
erfolgt über einen Basiclader, den Sie am Anschluß an die 
Programmbeschreibung finden. Vergessen Sie auch bei diesem 


Basiclader nicht, ihn vor dem Starten abzuspeichern. 
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Dieses Programm läuft ebenfalls nur, wenn Sie FastTape schon 


geladen haben. 


BEDIENUNG DES PROGRAMMS 


Gestartet wird das Programm durch SYS 50176 (SYS 29696 beim 
VC 20). Sofort erscheint der Titel auf dem Bildschirm, und 
Sie werden gebeten, die Quelldiskette einzulegen und eine 


Taste durchzudrücken. 


Nach kurzer Zeit erscheint der Diskettentitel und der erste 
Fileeintrag des Disketteninhaltsverzeichnisses mit der Frage 
JA/NEIN. Wenn Sie das Programm kopieren wollen, drücken Sie 
"J", und es erscheint JA hinter dem Fileeintrag. Dann wird 
der nächste Eintrag angezeigt. Wollen Sie ein Programm nicht 
kopieren, drücken Sie "N", und der Eintrag wird mit NEIN 
gekennzeichnet. Auf diese Weise können Sie bis zu 48 


Programme mit JA kennzeichnen. 


Falls Sie sich innerhalb des Programms einmal vertippen, 
können Sie durch Drücken der RUN/STOP-Taste immer das 
Programm abbrechen und zur Titelseite zurückkehren. 


Wenn Sie das ganze Inhaltsverzeichnis bearbeitet haben, 
werden Sie gefragt, ob Sie die Programme einzeln oder 
durchgehend kopieren wollen. Möchten Sie alle Programme auf 
einer Diskette speichern, geben sie "1" ein. Wenn Sie eine 
“2” eingeben, sagt Ihnen der Computer immer, welches 
Programm er als nächstes einliest und wartet auf einen 
Tastendruck. Damit ist es möglich, für jedes Programm eine 


andere Cassette einzulegen. 


Am Ende des Kopiervorgangs kehrt der Rechner wieder zur 
Titelseite zurück. Sie haben dann die Möglichkeit, eine neue 
Diskette zu kopieren oder durch Drücken von "E" ins Basic 


zurückzukehren. 


164 


60: 


1354: 


136: 


142: 
145: 
145: 
150: 
152: 
154: 
1586: 
158: 
168: 
167: 
154: 
169: 
169: 
169: 
170: 
180: 
190: 
200: 
210: 
220: 
230: 
2409: 
250: 
260: 
280: 
298: 
500: 
500: 
390: 
320: 
5380: 
340: 
350: 
3568: 
5370: 
580: 
390: 
4090: 
410: 
420: 
430: 
440: 


£E490 


«OPT P1 


GEHHRRRERERKERN EHI TENKERR TFT KK TR R FR 


,* 
;‚#* 
,* 


;* VON DISKETTE AUF CASSETTE 


,_* 
,* 
ji 


BACKUP 


MIT FASTTAPE 


KERKKKHK K 


SRERKEHERHERRERRRNKERKRK KERN NK THREE RN 


;s START MIT SYS 50176 (SYS 29696) 


; WERTE 


START 
CLSCRN 


‚NUMOUT 


MOTAUS 
PTASTE 
SFINUM 
STROUT 
SETPAR 
ABSOLUT 


GETBYT 
SETLFS 
SETNAM 
OPEN 
CLOSE 
TALK 
SETALK 
IECIN 
CLALL 
UNTALK 
STOP 
BASOUT 


GA 

5A 
MAXBLK 
ER 
COPANZ 
TEMP 
FLAG 
LISTPT 
FILPUF 
LNGTAB 
NAMTAB 
LSTMAX 
TLSADR 
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UND KOMMENTARE IN KLAMMERN 
GELTEN FUER VC-2® 
*= $C400 ı ($7400) 
= * 
= $E544 5; ($ESSF) BILDSCHIRM LOESCHEN 
= $BDCD ; ($DDCED) POS. INEGERZAHL AUSGEB. 
= $FCCA : ($FD08) MOTOR AUSSCHALTEN 
= $F838 ; ($F8B7) RECORDERTASTE ABFRAGEN 
= $F3OF > ($F3CF) SUCHT FILENUMMER 
= $ABI1E s ($CB1E) STRING AUSGEBEN 
= $F31F > ($F3DF) SETZT FILEPARAMETER 
= $C085 3 ($707F) EINSPRUNG IN FASTTAPE 
= $FFE4 ;BYT VOM EINGABEGERAET HOHLEN 
= $FFBA sFILEPARAMETER SETZEN 
= $FFBD ;FILENAMEPARAMETER SETZEN 
= $FFCO 
= $SFFC3 
— $FFB4 
= $FF96 5; SECUNDAERADR. NACH TALK 
= $FFAS ;BYTE VOM IEC-BUS HOLEN 
= $FFE7 
= $FFAB SUNTALK AUSGEBEN 
= $FFE1 ;STOPTASTE ABFRAGEN 
= $FFD2 ;BYT AUSGEBEN 
— $BA ; GERAETEADRESSE 
= $B9 ; SEKUNDAERADRESSE 
> +98 5($5D) MAX LADBARE BLOECKE 
= $0D ;CARRADGE RETURN 
= $FB ;AKTUELLE LISTENLAENGE - 
= $FC ;HILFSPUFFER 
= $FE sEINZEL FLAG 
= 841 :POINTER AUF NAMENLISTE 
= $340 ;FILEPUFFER 
— START+$6548 ;TAB. DER NAMENLAENGEN 
= START+$700 ;TAB. DER FILENAMEN 
= $30 ;MAXIMALE LISTENLAENGE 
= $09 


» ($15) HIBYTE DER LADEADRESSE 


459: 
4606: 
470: 
480: 
499: 
495: 


IQ: 
370: 
380: 
590: 
600: 
618: 
620: 
630: 
640: 
650: 
660: 
670: 
680: 
690: 
700: 
701: 
701: 


703: 
703: 
710: 
729: 
730: 
7240: 
750: 
760: 
778: 
7880: 
798: 
808: 
818: 
820: 
830: 
840: 
850: 
862: 
870: 
880: 
899: 
988: 
910: 
920: 
930: 
340: 
950: 
9560: 
970: 
988: 
998: 
1998: 
1010: 
1920: 
1030: 


C480 
C400 
C489 
C400 
C400 
C400 


C400 
c402 
C495 
C4098 
c49A 
C40D 
c40F 
c411 
c414 
C416 
c418 
C41B 
C41E 
C420 
c422 
423 


. 64253 


c4253 
c423 
c425 
C425 
C429 
c42C 
C42E 
C42F 
C4531 
c434 
C436 
458 
C43A 
C45D 
C440 
c442 
0445 
447 
c44A 
t44C 
C44F 
c459 
c452 
455 
£E457 
LI 
Cc45C 
C45F 
[462 
0465 
C467 
L46A 
C4&B 
C46D 
0.470 


DO 
D® 


02 


AB 


AB 
C7 


C7 


C7 


FF 


FF 


FF 


FF 


C7 
C7 


TEMP2Z 

TPGSTA 
TPGEND 
PRGSTA 
PRGEND 


MOFLAG 


ou. 


LDA 
STA 
sTA 
LDA 
STA 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
JSR 
CMP 
BNE 
RTS 


$22 ;HILFSPOINTER 


$SAC PTR ZUM TATS. PRGSTART 
$AE ;PTR ZUM TATS. PRGENDE 
$A7 ;PTR ZUR EIGENTL. PRGSTART 
$AY ;PTR ZUM EIGENTL. PRGENDE 
$C9 ; MOTORFLAG 

#1 s (LDA #25) 

$D020 ; (STA $790F) 

$D021 ;s (ENTFAELLT) 

#6 

5286 

#<TITEL 

#>TITEL 

STROUT 


#<QUEINS ;"QUELLDISK EINSTECKEN " 
#>QUEINS 

STROUT 

WAIT 

#"E" ; PROGRAMM BEENDEN 

OKCOPY 


; INHALT EINLESEN 


OKTCOPY 


LOOP1 


LOOPZ 


NULL 


JSR 
JSR 
JSR 
LDA 
TAX 
LDY 
JSR 
LDA 
LDX 
LDY 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 
LDY 
JSR 
DEY 
BNE 
JSR 
STA 
JSR 
LDX 
JSR 
JSR 
JSR 
BEO 
JSR 
ELC 
BCC 
JSR 
JSR 


166 


CARET 
CARET 
INIT ;DISK INITIALISIEREN 
#508 


#500 
SETLFS 
#501 
#<CATALO 
#>CATALO 
SETNAM 
OPEN 
#508 
TALK 
#500 
SETALK 
#504 


IECIN ;DIE ERSTEN A BYTES EINLESEN 


LOOP1 

IECIN ; BLOCKZAHL EINLESEN 
TEMP2 

IECIN 


'TEMP2 


NUMOUT ;UND AUSGEBEN 

SPACE 

IECIN ; DISKNAME ETC AUSGEBEN 
NULL 
BASOUT 


LOOP2 
CARET 
CARET 


1040: 
1950: 
1060: 
1070: 
1071: 
1871: 


1073: 
1073: 
1980: 
1990: 
1108: 
1119: 
1120: 
1130: 
1140: 
1159: 
1168: 
1170: 
1188: 
1198: 
1200: 
1210: 
1220: 
12380: 
1240: 
1250: 
1268: 
1270: 
1280: 
1290: 
1300: 
1319: 
1320: 
15330: 
1340: 
1350: 
1368: 
1370: 
1380: 
1398: 
1409: 
1410: 
1420: 
14530: 
1440: 
1459: 
1468: 
1470: 
1480: 
1498: 
1509: 
1510: 
1520: 
1559: 
1549: 
1550: 
1568: 
1570: 
1580: 
1590: 


c4753 
475 
£479 
C47B 
£C47D 
C47D 


C47D 
C47D 
CA7D 
C488 
C482 
C485 
C487 
C489 
C48C 
CA8F 
E491 
C494 
C495 
C498 
C499 
CA9C 
CA9E 
CA9F 
Can 
Cana 
Can? 
Can9 
CAAB 
CAAE 
CAB® 
C4B2 
CAB4 
C4B& 
C4B8 
CABA 
CA4BC 
CABF 
CAC2 
CAc4 
CAC6 
CACB 
CACA 
CACC 
CACF 
C4D® 
C4D2 
C4D4A 
C4D6 
C4D8 
CADA 
CADC 
C4DE 
CAE1 
C4E4 
C4E& 
C4E8 
CAEA 
C4EC 
C4EE 


AS 
AS 
08 
FB 


FF 
FF 


FF 


FF 


BD 


C7 


FF 


c7 


05 


FF 


FF 


C5 


AB 
C5 


AB 


AB 
C7 


JSR 
JSR 
LDY 
STY 


IECIN 
IECIN 
#500 
COPANZ 


;ANZAHL DER ZU COPIERENDEN 
;FILES AUF NULL SETZEN 


; INHALT AUSGEBEN UND FRAGEN 


LSTART 


WRFILE 


NAMEND 


FRAGEN 


TOLONG 


FINISH 
LNGEOK 


FANZOK 


LOOPS3 


JSR 
STA 
JSR 
STA 
LDX 
JSR 
JSR 
LDY 
JSR 
PHA 
JSR 
PLA 
STA 
BEO 
INY 
BNE 
JSR 
JSR 
LDA 
BEO 
JMP 
LDA 
BNE 
LDA 
CMP 
BCC 
LDA 
LDY 
JSR 
JMP 
LDA 
CMP 
BCC 
LDA 
LDY 
JSR 
ELC 
BCC 
LDA 
STA 
LDA 
STA 
LDA 
LDY 
JSR 
JSR 
CMP 
BEQ 
CMP 
BNE 
LDA 
LDY 


IECIN 
TEMP 
IECIN 
TEMP+1 
TEMP 
NUMOUT 
SPACE 
#500 
IECIN 


AUSGAB 


FILPUF,Y 


NAMEND 


WRFILE 
IECIN 
IECIN 
+70 
FRAGEN 
INHEND 
TEMP+1 
TOLONG 
TEMP 
#MAXBLK 
LNGEOK 
#<SLONG 
#>SLONG 
STROUT 
NXFILE 
COPANZ 
#LSTMAX 
FANZOK 


#<LILONG 
#>LILONG 


STROUT 


FINISH 
#500 
+08 
#$1iF 
$DS 


#<JANEIN 
#>JANEIN 


STROUT 
INPUT 
"N" 
NEIN . 
#”J Li 
LOOPS 
#<STRJA 
#>STRJA 
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;BLOCKZAHL AUSGEBENN . 


;FILENAMEN 
;EINLESEN 


_ }AUSGEBEN 


sUND IN 
;‚PUFFER SCHREIBEN 


;STATUS ABFRAGEN 


sAUF MAXIMALE LAENGE 
; TESTEN 

;"ZU LANG ZUM 

; ZUM COPIEREN" 
; AUSGEBEN 


;s"LISTE ZU LANGE" 
; AUSGEBEN 
ı "JA/NEIN" AUSGEBEN 


; (ENTFAELLT) TABULIERUNG 
; (ENTFAELLT) UEBER SPALTENZEIGER 


sJA AUSGEBEN 


1606: 
1819: 
1620: 
1630: 
1640: 
1650: 
1668: 
16790: 
1680: 
1698: 
1708: 
17190: 
1720: 
1730: 
1740: 
1750: 
1768: 
1770: 
1780: 
17908: 
1809: 
1810: 
1820: 
1830: 
1840: 
1850: 
1860: 
1872: 
1888: 
1890: 
1908: 
1910: 
19289: 
1930: 
1940: 
1950: 
1980: 
1970: 
19890: 
19790: 
2000: 
2018: 
2020: 
2030: 
2040: 
289590: 
2060: 
2062: 
2062: 
2062: 


2066: 
2066: 
2066: 
.2070: 
2080: 
2099: 
2108: 
2110: 
2120: 
2130: 


CAFO® 
CAFS 
CAFS 
c4F8 
CAFA 
C4FB 
CAFE 
C598 
c502 
C594 
C505 
C508 
EI9A 
ESOC 


CSYE 


ES5OF 
C510 
c[512 
C515 
C515 
C516 
c518 
C51B 
CS51E 
529 
C522 
c524 
527 
C52A 
C52C 
CS2ZE 
C530 
1532 
533 
C535 
05357 
[538 
E55A 
ECSSC 
CISSE 
Cc541 
c544 
6547 
549 
C54C 
ES4E 
C550 


[555° 


C553 
C553 


[553 
E5553 
C553 
C553 
E555 
c557 
C55A 
C5S5D 


C55F 


C561 


77 
C7 
1E 
Ei 
31 
07 
32 


AB 


Cö 


053 


ca 
05 


AB 
C5 


AB 
C7 


LOOP4 


UMSETZ 


UMSEND 


WETEST 


ILL 


TYFTST 


TYPOK 


NEIN 


NXFILE 


INHEND 


JSR 
LDA 
JSR 
LDX 
INX 
LDA 
CMP 
BNE 
STX 
INX 
LDA 
CMP 
BEO 
STA 
INX 
INY 
BNE 
TXA 
LDY 
ELC 
SBC 
STA 
LDA 
BNE 
LDA 
LDY 
JSR 
JMP 
CMP 
BEO 
CMP 
BER 
INX 
BNE 
INC 
CLC 
BCC 
LDA 
LDY 
JSR 
JSR 
JMP 
LDA 
JSR 
LDA 
BNE 
JMP 


STROUT 
COPANZ 
SETPTR 
#500 

;SFILENAMENSTART SUCHEN 
FILPUF,X 
#622 51.HOCHKOMMA = START 
LOOP4 | 
TEMP+1 5START RETTEN 


FILPUF,X 5NAMEN IN LISTE SCHREIBEN 
#522 ;2. HOCHKOMMA = ENDE 

UMSEND 

(LISTPT)I,Y 


UMSETZ 
;ENDPUNKT IN AKKU 
COPANZ ;INDEX IN Y-REG. 


TEMP+1 ;LAENGA BERECHNEN 
LNGTAB,Y ;IN TABELLE SCHREIBEN 
FILPUF,X 

TYPTST 

#<STRILL 5;"ILLEGALER FILETYP" 
#>STRILL 

STROUT 3AUSGEBEN 

NXFILE 

#"5" ; TESTET AUF PRG FILE 
ILL 

# "D LI} 

TYPOK - 


WETEST 

COPANZ 3;ANZ DER ZU COPIERENDEN 
;FILES ERHOEHEN 

NXFILE 

#<STRND 3;"NEIN"” AUSGEBEN 

#>STRNO 

STROUT 

CARET 

LSTART 

#508 ;FILE SCHLIESSEN 

CLOSE 

COPANZ 5SOLLEN FILES COPIERT 

COPYST 5;WERDEN/NEIN=> START 

START 


;COPIEREN VORBEREITEN 


COPYST 


ABFRA2 


LDA 
LDY 
JSR 
JSR 
CMP 
BEQ 
CMP 


<FRAGE ;"EINZELN ODER 
#>FRAGE ; HINTEREINANDER" 
STROUT 5;AUSGEBEN 

INPUT 

" 1 [13 

EINZEL 

"2" 
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2140: 
2150: 
2160: 
2170: 
2180: 
2190: 
22080: 
2202: 
2202: 
2202: 


2206: 
2206: 
2206: 


2210: 
2218: 
2220: 
2230: 
2240: 
22590: 
2260: 
2270: 
2280: 
2290: 
23508: 
2310: 
2320: 
2330: 
2340: 
2350: 
2360: 
23790: 
2380: 
2398: 
2400: 
2410: 
2420: 
2430: 


2440: 


2450: 
2460: 
2470: 
2488: 
2490: 
2500: 
2510: 
2520: 
2530: 
2548: 
2550: 
2560: 
2570: 
2580: 
2590: 
26008: 
2610: 
2620: 
2650: 
2640: 


15653 
[585 
0567 
1588 
EI5A 
C5sC 
E56E 
c571 
c571 
c571 


c571 
c571 


571 


c571 
c571 
£E575 
C575 
C577 
c579 
C57C 
C57E 
c581 
C5853 
C586 
c588 
C58B 
C5SC 
C58D 
ES58F 
c591 
C5953 
594 
C5977 
c599 
C59C 
C59E 
EC5AO 
ESAS 
ECSAS 
C5A7 
EIAA 
ECSAB 
ESAC 
ECSAE 
CSBO 
C5B2 
CSBS 
C5B8 
C5B9Y 
ES5BA 
CSBC 
CSBE 
CSBF 
Cc5c1 
C5C3 
ESC6 
C5cC9 
C5CB 


FF 


AB 


CA 


Cö 


‚FF 


FF 


ca 


Cö 


853 


c? 
053 


FF 
FF 


EINZEL 


BNE 
LDA 
.BYT 
LDA 
STA 
LDA 
JSR 


ABFRA2 

#509 ;sFLAG ENTSPRECHEND 

$2C 

#$FF ;N 

FLAG 

#$s0F ;sFEHLERKANAL SCHLIESSEN 
ECLOSE 


sCOPIER — ROUTINE 


VORBEREITEN 


;sEINLESEN VON DISK 
3 


LOLOOP 


WRTNAM 


LOOP& 


LDOP7 


LDX 
STX 
LDA 
LDY 
JSR 
LDY 
LDX 
LDA 
JSR 
LDA 
JSR 
INY 
DEX 
BNE 
LDA 
LDX 
TAY 
JSR 


_ LDX 


LDA 
STA 
LDA 
JSR 
LDX 
LDA 
STA 
INY 
INX 
DEC 
BNE 
LDY 
LDA 
STA 
INY 
INX 
CPY 
BCC 
TXA 
LDX 
LDY 
JSR 
JSR 
LDA 
LDY 


#590 ; TEMP LOESCHEN 

TEMP ;TEMP => PRG-ZAELER 
#<SREAD 5 "READING" 

#>SREAD 

STROUT 3; AUSGEBEN 

TEMP ;POS. IN TABELLE 
LNGTAB,Y 5LAENGE NACH X-REG. 
TEMP 

SETPTR 
(LISTPT),Y 5FILENAME AUSGEBEN 
BASOUT 


WRTNAM 
4302 ; FILENUMMER 
#508  36A 
;5A 
SETLFS 
TEMP 
UNSTAB, X 
TEMP2 
TEMP 
SETPTR 
#400 
(LISTPT),Y ;FILENAME IN PUFFER 
FILPUF,X 5SCHREIBEN 


TEMP2 

LOOP& 

#500 

PRGERE,Y 5 ",P,R " ANHAENGEN 
FILPUF,X 


#504 
LOOP7 


#<FILPUF 
#>FILPUF 
SETNAM ° 
DPEN 
#TLSADR 
4500 
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2850: 
z26h0: 
2670: 
2888: 
2690: 
2700: 
2710: 
2720: 
2730: 
2740: 
27590: 
2760: 
2770: 
2788: 
2790: 
2800: 
2810: 
27820: 
2830: 
2840: 
2850: 
28658: 
2862: 
2862: 


2866: 
2866: 
27870: 
2880: 
2890: 
2906: 
2910: 
2920: 
2930: 
2948: 
2950: 
29760: 
2970: 
2980: 
2990: 
359090: 
3002: 
3002: 


3006: 
3008: 
3810: 
5020: 
53030: 
3040: 
3059: 
3068: 
3070: 
3075: 
3080: 
3990: 
31800: 
3195: 
3118: 
3115: 
3120: 


CSCD 
ESCR 
cSDi 
C5D4 
CS5Dö 
C5D? 
CSDB 
CSDD 
CSDE 
CSE1 
ECSES 
CSES 
CSE7 
ECSEA 
CSED 
CSEF 
ECSF2 
ESFS 
CSF7 
ESFA 
CSFC 
ESFF 
C691 
C681 


[681 
Cs01 
C601 
C604 
597 
C6997 
C68B 
ECöBE 
L59F 
Cöil 
0614 
6617 
[617 
Cöic 
Cö1D 
CöiF 
[622 
[622 


[622 
C522 
Cs22 
[624 
C626 
C628 
Ca2A 
Cö2C 
C62D 
Cö2F 
C6531 


 C6533 


C635 
[658 
C&4S5B 
Cö3E 
640 


AS 
87 
90 
Fö 
EB 


02 
CS 
i1 
18 
11 


03 
37 


DO 


Do 


FF 


FF 
FF 


F3 
F3 


FF 


FF 


FF 


De 


C7 


AB 
[7 
c8 


LDLOOP 


SAUF CC 


NOFEHL_ 


STY 
5TA 
LDA 
AND 
sSTA 
LDA 
LDX 
TAY 
JSR 
LDA 
LDX 
LDY 
JSR 
JSR 
LDX 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 
LDY 


 5PROGRAMM IN 


JSR 
JSR 
LDX 
BEU 
JSR 
PHP 
LDA 
JSR 
LDA 
DRA 
STA 
PLP 
BEC 
JSR 


TEMPZ 

TEMP2+1 

$D011 ; (ZEILE 2678-2690 ENTFALLEN) 
#$EF 5BILDSCHIRM AUS 

$Do11 

#$0F KANAL 15 DEFFNEN 

44508 


SETLFS 

4505 s "UI-" DISKETTE 
#<UIMIN 3;SCHNELL SCHALTEN 
#>UIMIN 
SETNAM 

DPEN 

#592 ;LADEKANAL DEFFNEN 
SFINUM 

SETPAR 


PUFFER LADEN 


IECIN ;PRG LADEN 
STOBYT 

$90 

LDLOOP 

FEHLER 


#02 

CLOSE 

$Do11 ; (ENTFAELLT) BILDSCHIRM AN 
#510 ; (ENTFAELLT) 

$Do1i ; (ENTFAELLT). 


NOFEHL 
FEMELD 


SPEICHERN VORBEREITEN 


LDX 
LDA 
STA 
LDA 
sTA 


“ INX 


NOMELD 


LDA 
BNE 
LDA 
LDY 
JSR 
JSR 
JSR 


LDA: 


LDY 
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TEMP 
TEMP2 
TPGEND 
TEMP2+1 
TPGEND+1 


TEMP 

NOMELD 

#<ZICASS 3; "CASSETTE EINLEGEN " 
#>ZICASS 
STROUT 

INPUT 

TASTE ; RECORDERTASTE ABFRAGEN 
#<WRITI 

#>WRITI 


3125: 
3130: 
3135: 
3148: 
3145: 
31590: 
3159: 
3160: 
3160: 
3165: 
3210: 
3220: 
3230: 
3240: 
3250: 
3260: 
3270: 
3280: 
3290: 
3500: 
3310: 
3320: 
3530: 
3340: 
3350: 
33560: 
33780: 
3389: 
3390: 
3400: 
5410: 
3420: 
3425: 
3430: 
5440: 
3450: 
3460: 
3470: 
3480: 
3490: 
3590: 
35280: 
3530: 
3540: 
35590: 
35595: 
3568: 
35780: 
3580: 
3590: 
3600: 
3610: 
3620: 
3622: 
3622: 


3626: 


3626: 


3630: 
3640: 
3650: 


[642 
645 
647 
C64A 
CöAC 
CöAF 
Cs51 
0654 
655 
[556 
[558 
C65A 
C6sSC 
C655D 
[660 
C562 
C6565 


667 


65697 
Cö6C 
Cöö6E 
C670 
6753 
674 
0675 
C677 
677 
C67A 
Cs7C 
C67E 
C681 
683 
C685 
C687 
[689 
Cu8B 
C68D 
Cö8E 
6970 
692 
69753 
[6975 
C65977 
C6978 
C59A 
C69B 
C69C 
C6ö9IE 
LARR 
Cö5A2 
TsA4 
LAAS 
CAA7 
LCösA? 
LaR? 


CA? 
C6A? 
LA? 
CARAB 
C6öAD 


A2 
86 
20 


05 
AB 
85 


AB 


EA 


Cö 


FF 


FF 


CA 


C 


053 


FF 


co 


JSR | 


LDY 
LDX 
LDA 
JSR 
WRNAMZ LDA 
JSR 
INY 
DEX 
BNE 
LDX 
LDA 
TAY 
JSR 
LDX 
LDA 
STA 
LDA 
JSR 
LDX 
ULOOP LDA 
STA 
INX 
INY 
DEC 
BNE 
TXA 
LDX 
LDY 
JSR 
LDY 
LDA 
STY 
STA 
LDA 
sSTA 
INY 
LDA 
STA 
INY 
STY 
LDA 
SEC 
SBC 
PHP 
CLC 
ADC 
STA 
LDA 
ADC 
PLP 
SBC 
STA 


;PRG AUF CC 


LDX 
sSTX 
JSR 


STROUT 
TEMP 
LNGTAB, Y 
TEMP 
SETPTR 
(LISTPT),Y 
BASOUT 


WRNAM2 

#801 ;FILEPARAMETER 

#0 ;FUER CASSETTENSPEI- 
; CHERUNG 

SETLFS 

TEMP 

LNGTAB,X 

TEMP2 

TEMP 

SETPTR 

#$00 

(LISTPT),Y 5FILENAMEN IN 

FILPUF,X 5CASNPUFFER 
; SCHREIBEN 


TEMP2 
ULOOP 
;FILENAMEPARAMETER 
#<FILPUF 5N 
#>FILPUF 
SETNAM 
#500 
#TLSADR 
TPGSTA 
TPGSTA+1 
(TPGSTA),Y 5;PRGSTARTADR. 
PRGSTA ;IN PRGSTARTVEKTOR 


(TPGSTA),Y 
PRGSTA+1 


TPGSTA 
TPGEND ;ENDADRESSE BERECHNEN 


TPGSTA 


PRGSTA 
PRGEND 
TPGEND+1 
PRGSTA+1 


TPGSTA+1 
PRGEND+1 


SPEICHERN 


#5 ; SYNCHRONISATIONS 
$AB ; WIEDERHOLUNG 
ABSOLUT ;FASTTAPE SPEICHERN 
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36980: 
3700: 
3710: 
3720: 
3736: 
3732: 
3733: 
3748: 
3753: 
3760: 
3778: 
3780: 
37980: 
3810: 
3820: 
3850: 
35840: 
3845: 
3850: 
3870: 
3880: 
3882: 
5882: 
5882: 


3886: 
3886: 
3886: 


5888: 
5888: 
3890: 
39708: 
3910: 
3920: 
3930: 
3932: 
3932: 


3956: 
3956: 
5940: 
3959: 
3960: 
3970: 
3980: 
3998: 
4000: 
49410: 
40920: 
49530: 
4040: 
4050: 
4080: 
4070: 
4080: 
4082: 
4082: 


4086: 


C6Bd 
C6B3 
C4BS 
C6B7 
C&B9 
C4BB 
C&BD 
CöBF 
CöCc2 
CsC4 
CöC5 
C6C9 
CACC 
CöCF 
C6D2 
CöD4 
C6D& 
C6D9 
CöDC 
C6DF 
C6E? 
C4E5 
C6ES 
C4ES 


E6ES 
C6ES 
C6ES 


C6öES 
CöES 
C6ES 
Cö6E8 
Cö6EB 
C6ED 
C6Fö 
CörFi 
CörFi 


Cöri 
CöFi 
CöF1 
CAF35 
CöF4 
CAS 
CAF7 
LAFB 
CA6FA 
CöFB 
CöAFD 
CöFF 
Cc701 
C702 
C794 
C786 
C708 
C709 
C797 


C709 


20 
AD 
07 
8D 
68 


75 
11 
18 
11 


00 


42 


42 


42 
41 
42 


CB 
42 
00 


C& 


Cö 


AB 
C7 
c4 
Cc7 


AB 
C7 
c8 
C7 
C5 


C7 
De 


D® 


JSR SCRON ; (ENTFAELLT) 
INC TEMP 
LDX TEMP 
CPX COPANZ 
BCS CENDEN 
BIT FLAG 
BPL EINZE2 
JMP X NXTFIL 

CENDEN LDA #<EOCOP 5;"ENDE DES COPIERENS" 
LDY #>EOCOP 
JSR STROUT 3;AUSGEBEN 
JSR INPUT 
JMP START 

EINZE2Z JSR 2 NNAMAU ’ 
LDA #<ZICASS 3;"CASSETTE EINLEGEN " 
LDY #>ZICASS 
JSR STROUT ;AUSGEBEN 
JSR INPUT sAUF TASTE WARTEN 
JSR TASTE 

NXTFIL JSR CARET 
JMP LOLOOP ;NAECHSTES FILE LADEN 

D UNTERPROGRAMME 
; BILDSCHIRM ANSCHALTEN 

SCRON JSR SEUIP ı (ZEILE 538908-39350 ENTFALLEN) 
LDA %Do11l 
ORA #310 
STA %Do11 
RTS 


;LISTENTHENER (LISTPT) AUF 
FILENAMEN N 


sAUF ENTSPR. 


SETPTR LDY 
ASL 
ASL 
STY 
ASL 
ROL 
ASL 
ROL 
STA 
LDA 
ELC 
ADC 
sSTA 
LDY 
RTS 


#500 

A 

A 
LISTPT+1 
A 
LISTPT+1 
A 
LISTPT+1 
LISTPT 
LISTPT+1 


#>NAMTAB 
LISTPT+1 
#500 


;BYTE IN DEN SPEICHER SCHREIBEN 
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40856: C709 


4098: C709 91 22 STOBYT STA <TEMP2),Y 

41008: C70B Eö& 22 INC TEMP2 ; ZAEHLER ERHOEHEN 
4118: C70eD De 02 BNE NOINC 

4120: C7OF E& 25 INC TEMP2+1 

41590: C711 58 NOINC CLI 

41486: C712 68 RTS 


4142: C7153 

4142: C713 
;ASCII-BYTE HOLEN UND IN HEXZAHL 
; UMWANDELN 

4146: C713 

4146: C713 

41590: C713 20 AS FF ASCHEX JSR IECIN 


4160: C716& 27 @F AND #$0F 
41790: C718 8A ASL A 
4186: C717 aA ASL A 
419090: C71iA 8A ASL A 
42808: C71B oA ASL A 
4210: C71C 85 57 STA #57 
4220: C71E Z0 AS FF JSR IECIN 
4230: C721 27 oF AND #30F 
4240: C723 05 57 ORA 57 
4250: C725 60 RTS 


4252: C726 

4252: UC726 
;HEXZAHL IN ASCII-BYTE UMWANDELN 
’ UND AUSGEBEN 

4256: C726 

4256: C726 


4260: [726 48 HEXASC PHA 
4270: 1727 AR LSR A 

4280: [C728 4A LSR A 

42980: C729 4A LSR A 

4306: C72A AA LSR A 

4316: C72B 26 2F C7 JSR HALBBT 

4326: C72E 68 PLA 

4336: C72F 29 6F HALBBT AND #$0F 

4346: (731 18 ELC 

4350: [732 69 30 ADC #430 

4366: C734 AC D2 FF JMP_ BASOUT ;AUSGEBEN 


4562: 17537 
4562: [737 
; FEHLERMELDUNG AUSGEBEN 
4566: 737 
4566: [7537 
45780: C757 AD 11 DO FEMELD LDA $Do1i s (ZEILE 4370-4398 ENTFALLEN) 


4580: U73A 09 10 DRA #%10 ;s (FMELD KOMMT IN ZEILE 4406) 
45780: C7S5C 8D 11 DO STA %Do11 

4400: UC7SF A9 07 LDA #<WMACH ;"WEITER MACHEN ? " 
4410: C741 AB CA LDY #>WMACH 

4420: UC745 280 iE AB JSR STROUT ;AUSGEBEN 

44530: C745& 20 Ei C7 FLOOP JSR INPUT ;sAUF TASTE WARTEN 
4440: UC749 [97 59 EMP O3 #59 

4450: UC74B De 01 BNE NEIN2 

4460: UC74D 698 RTS 

4470: UC74E C97 4E NEINZ CMPU/33#$4E 

4488: C7S50 De F4 BNE FLOOP 

4490: C752 4AC DO C7 JMP ENDE 


4492: UC755 
4492: C755 
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4496: 
4496: 
4500: 
4510: 
4520: 
4530: 
4540: 
4530: 
4568: 
4570: 
4580: 
4590: 
4600: 
4610: 
4620: 
4630: 
4640: 
4650: 
4660: 
4662: 
4662: 


Abb: 
4666: 
4670: 
4680: 
46980: 
4700: 
4710: 
4720: 
4730: 
4740: 
4750: 
4760: 
4770: 
4790: 
4790: 
48090: 
4819: 
4820: 
4822: 
4822: 


4926: 
48286: 
498580: 
4849: 
4859: 
4852: 
4852: 


4856: 


. 4856: 


4868: 
4870: 
4989: 
48979: 
49709: 
4910: 


C755 
2755 
6755 
C757 
C7537 
C7S5c 
C7SE 
C7S5F 
C768 
C761 
C762 
C764 
C767 
C768 
C76B 
C76E 
C7ör 
C770 
C772 
C7753 
C7753 


6773 
6773 
C773 
C776 
c778 
C77B 
C77D 
C788 
C782 
C784 
C785 
C788 
C78A 
C7ac 
C78E 
c791 
c794 
0796 
C799 
C799 


[777 
c799 
C797 
C79C 
C79E 
C79F 
C79F 


C797F 
C79F 
C79F 
C7A1 
C7AS 
[7A4 
C7A7 
C7A? 


20 
Fo 
60 


1A 
ER 
1E 
FC 


FC 
40 


80 
D2 


Fö 


E4 
FB 


or 
08 


BA 
01 
DF 


AB 


Er 


CB 
FF 


DO 


Do 


FF 


FF 


FF 
FF 


FF 


FF 


FF 


;sFOLGENDES FILE AUSGEBEN 


NNAMAU LDA 


LDY 


#<SNFILE 
#>SNFILE 
JSR 2 STROUT 
LDA TEMP 
ASL A 

ASL A 

ASL A 

ASL A 

LDX TEMP 

LDY LNGTAB,X 
TAX 
LDA 
JSR 
INX 
DEY 
BNE 
RTS 


WRNAMS NAMTAB,X 


BASOUT 


WRNAMS 


;DISKETTE AUF 


”"LANGSAM” 


s "NAECHSTES FILE " 


; AUSGEBEN 


‚POS IN TABELLE 


; BERECHNEN 


;FILENAMEN AUSGEBEN 


SCHALTEN 


5 UND BILDSCHIRM ANSCHALTEN 


SEUIP LDA 
AND 
STA 
LDA 
JSR 
LDA 
LDX 
TAY 
JSR 
LDA 
LDX 
LDY 
JSR 
JSR 
LDA 
JMP 


$D811 
#+$EF 
$Doiil 
#$0F 
CLOSE 
#$0F 
#508 


SETLFS 
#505 
#<UIPLU 
#>UIPLU 
SETNAM 
OPEN 
#$9F 
CLOSE 


3 WARTESCHLEIFE 


WAIT JSR 
BEO 


RTS 


GETBYT 
WAIT 


;DISK INITIALISIEREN 


INIT LDA 
LDX 
TAY 
JSR 
LDA 


LDX 


#$9F 
#508 


SETLFS 


#501 
#<STRI 
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s (ZEILE 45670-482080 ENTFALLEN) 
; BILDSCHIRM AN 


; KOMMANDOKANAL 
; DBEFFNEN 


3 "re 


49720: 
4930: 
49740: 
49742: 
4942: 


4946: 
4946: 
49750: 
4960: 
4970: 
4780: 
4982: 
4982: 


4986: 
4986: 
4990: 
5006: 
5910: 
59020: 
5030: 
5040: 
3050: 
5060: 
5070: 
9080: 
50990: 
5100: 
5110: 
5120: 
5130: 
5132: 
5132: 


5136: 
31536: 
5140: 
3150: 
51680: 
51780: 
5180: 
3198: 
39200: 
3202: 
3202: 


5206: 
5206: 
5210: 
52290: 
53230: 
5240: 
3250: 
5260: 
3270: 
5280: 
5290: 
5300: 
5310: 
5320: 


C7AB 
C7AD 
C7Boö 
C7BS 
C7B3 


C7BS 
C7B3 
C7B53 
C7B5 
C7B& 
C7B8ö 
C7BB 
C7BB 


C7BB 
C7BB 
C7BB 
C7BE 
C7BF 
C7Ce 
Cc7c1 
C7C2 
C7C5 
C7Cö 
c7C8 
£C7C? 
C7CA 
C7CB 
C7CC 
C7CD 
C7CF 
c7De 
C7Do 


C7D® 
C7D® 
C7De 
C7D2 
C7D3 
C7Dö 
C7D8 
C7DB 
C7DE 
C7E1 
C7EI 


C7E1 
C7E1 
C7E1 
C7E4 
C7E& 
L7E? 
C7EB 
C7ED 
C7FO 
EC7FS 
C7FS 
C7’F8 
EC7FA 
C7FD 


AO 
28 


20 
BA 
48 
98 
48 
20 
18 
De 
38 
68 
AB 
68 
AA 
BO 
68 


C7 
BD 


208 


öD 
D2 


D2 


Ei 


01 


01 


FF 
FF 


FF 


FF 


FF 


C6 
FF 


FF 
c4 


FF 


C7 


FS5 


FS3 


FF 


FF 
c7 


LDY #>STRI 
JSR SETNAM 
JMP OPEN 
;SPACE BZW. CARRIAGE RETURN SENDEN 
SPACE LDA #320 ; SPACE 
„BYT $2C 
CARET LDA #CR ; CARRIDGE RETURN 
JMP BASOUT ;SENDEN 
; AUSGABEROUTINE 
AUSGAB JSR 2 BASOUT 
STASTE TXA ;A,X,Y REGISTER RETTEN 
PHA 
TYA 
PHA 
JSR STOP ; STOPTASTE ABFRAGEN 
ELC 
BNE WEITER 
SEC 
WEITER PLA ;REGISTER WIEDERHERSTELLEN 
TAY 
PLA 
TAX 
stop2 BCS ENDE 
RETURN RTS 
’ ABBRECHEN 
ENDE LDX #$Fö6 
TXS 
JSR SCRON ; (ENTFAELLT) 
LDA #$0F 
JSR CLOSE 
JSR ECLALL 
JMP START 
; EINGABEROUTINE 
INPUT JSR GETBYT 
BNE RETURN 
JSR STASTE 
BCC INPUT 
FEHLER LDX #8$0F sSTATUS ABFRAGEN 
JSR SFINUM 
JSR SETPAR 
ıLDA 6A 
JSR TALK 
LDA 5A 
JSR SETALK 
JSR ASCHEX 
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5330: C806 C7 20 CMPUO #20 


53540: CB02 08 PHP 

535390: C8053 99 OB BCC MELAUS ;UND BEI FEHLER 
53560: C805 48 PHA ; AUSGEBEN 
53570: C866 20 B& C7 JSR CARET 
5380: C887 20 B6 C7 JSR CARET 
53708: C80C 68 PLA 

3400: CB0D 20 25 C7 JSR 2 HEXASC 
54180: C816 26 AS FF MELAUS JSR IECIN 
5420: C8153 C7 @D CMPOH#CER 
5450: C815 FO 09 BEQ MELEND 
5442: C817 28 PLP 

5456: C818 08 PHP 

5466: C817 90 F5 BCC MELAUS 
5470: CBSiB 2 2 FF JSR BASOUT 
54806: CSi1IE 90 Fo BCC 2 MELAUS 
5490: C82@ 26 AB FF MELEND JSR UNTALK 
33908: C8235 2 PLP 
53900: C824 5608 RTS 

5502: C825 28 58 F8 TASTE JSR PTASTE 
535902: C828 28 CD C7 JSR STOP2 
So@2: C82B DO FB BNE TASTE 
55904: C82D AF 07 LDA #7 
5504: C8S2F 85 Ce STA MOFLAG 
3906: C831 4C CA FC JMP MOTAUS 


s511: C834 
3511: C834 
soil: C834 
; AUSGABE STRINGS 
55135: C834 
3315: C834 
3913: C834 
3520: C834 0D 8D 60D QUEINS „BYT 15,13,13 


33550: C837 12 51 55 „ASC "SQUELLDISK# EINLEGEN !" 

5549: CS4D 08 .BYT 

3590: CB84E 0D OD ZICASS „BYT 13,13 

3368: 850 12 SA 497 „ASC "SZIELCASSETTE®M EINLEGEN !" 
535780: C869 0D 08 „BYT 15,8 

39380: C86B 95 11 IC TITEL „ASC "es BACKUP VON DISKETTE AUF" 
35370: CBSC @D @D „BYT 13,15 

3600: C88E 1iF 20 20 „ASC "= CASSETTE" 

3602: CBAS 08D 0D „BYT 13,13 

3604: C8A7 20 20 20 „ASEC " MIT&FASTTAPE 
3686: LCSC& 8D @D OD „BYT 13,135,13 

36088: C8C9 20 20 20 „ASC " (C) DIRK PAULISSEN " 
S61@: CBSES @D @D 0D .BYT 13,15,153 

3620: CB8Eö6 1E 20 20 „ASC "ii E = ENDE=" 

36356: LCBSFB 00 .BYT 8 

5640: CBFC 0D SLONG .BYT 15 

56580: ECBFD IC 12 21 .ASC "aaı!a ZU LANGE ZUM COPIEREN =" 
36606: LCF1A 00 .„BYT 8 

3670: C9IiB OD LILONG .BYT 15 

36808: CYIC 1C 12 21 „ASC "Aal! LISTE IST VOLL 5" 

3678: LYSIZ 00 .BYT ® 

3700: C933 12 4A 41 JANEIN „ASC "AJA/NEINIBRRRER BES" 

5718: CY744 00 .BYT ® 

3726: C945 12 1E 28 STRJA .ASC "ui Ja ma" 

3730: LCY50 00 .BYT ® 

37480: C9S51 0D STRILL .BYT 13 

37580: C952 1C 12 21 „ASC "al! ILLEGALER FILETYPE" 
7680: C9IAA 080 .BYT 8 
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53770: 
5780: 
3790: 
5800: 
5810: 
3920: 
3830: 
5840: 
58530: 
53860: 
3870: 
588%: 
389798: 
5900: 
59710: 
599720: 
575350: 
5940: 
397590: 
5960: 
3970: 
5988: 
53995: 
5986: 
59790: 
6000: 
6019: 
6020: 
6030: 
6040: 
68453: 
6050: 
6060: 
6070: 
6080: 
6070: 


C96B 
[9776 
6977 
EI7A 
9772 
c974 
CIAB 
EFAA 
C97BA 
C9BC 
LICH 
EC9C7 
C9C? 
C9D1 
C?7D2 
C97D&6 
C97D7 
CFDA 
C97DB 
C9DE 
C9DF 
LIED 
CIE 
CIEZ 
C9ES 
LIES 
CIEC 
ErED 
CIEF 
CARDS 
CAO7 
ERAOB 
CcA1? 
CA1A 
CAIC 
CA2ZD 


®D 
41 


2D 


2B 


36 


45 


45 


45 


STRNO „ASC 
„BYT 
„BYT 
„ASC 
„BYT 
„ASC 
.BYT 
„ASC 
„BYT 
„ASC 
„BYT 
„BYT 
.„ASC 
„BYT 
„ASC 


FRAGE 


SREAD 


PRGRE 


"a NEIN m 
@ 

13,13,13 
"WOLLEN SIE DIE PROGRAMME" 
13,13 


1 DURCHGEHEND" 
13,13 
[13 2 
13,13 
"COPIEREN ?" 
[) 

13,13 
"READING " 


EINZELN" 


„BYT ® 


UIMIN „ASC 
.BYT 
.ASC 
„BYT 
„ASC 
„BYT 
„ASC 
„BYT 
„BYT 
.ASC 
„BYT 
„BYT 
.ASC 
.„BYT 
„BYT 
.ASC 
„BYT 
„BYT 
.ASC 
„BYT 


LIPLU. 
STRI 
CATALO 


WRITI 


EOCOP 


WMACH 


SNFILE 


13,13 

"SAVING " 

{) 

13,13 

"SENDE DES COPIERENS ma" 
[) 

13 

" WEITER MACHEN ? " 
[) 

13,13 

"NAECHSTES FILE : " 
@ 
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FKEHREHHKHFHFHFHRHTRTERHKHKKTHTK HH NT KH TH NK IH TH IH HE NR TH TH IH KH KH FH TH FH HF HH HF TR TH FH FR N HH HN 
188 REM BACKUP DISKETTE => CASSETTE FUER C-64 
FHEFREHERKHEHIKITHKHKTE NN KH HK HF N GH FH FH TH FH IT NH TH HF THF NH TH KH NH HF FH FH TH TH TR FF FH IH FEN INH 

116 E=51757: A=50176:PS=6 

128 FOR I=A TO E:READ X:POKE I,X:PS=PS+X:NEXT 

138 IF PS<>171785 THEN PRINT"FEHLER IN DATAS":END 

148 SYS A:NEW 

159 DATA 169,1,141,32,208,141,33,208,169,6,141,134,2,169 

„127,160, 200,372, 380,171 

14% DATA 169,572,160,?00,32,30,171,32,153,199, 201,69, 208, 
1,96,32,182,199,32,182 

176 DATA 199,32,159,199,169,8,170,160,6,32,186,255,169,1, 
162, 225,160, 201,32 

189 DATA 189, 255,32, 192,255, 169,8,32, 180, 255,169, 0,32, 150 
‚255,160,4,32, 165, 255 

190 DATA 136,208, 750,32, 165, 255, 133,34,32, 165, 255, 166,34 
‚32, 205,189,32,179,199 

208 DATA 32,165, 755, 240,6,32, 210,255, 24,144, 245,32,182,1 
99,32,182,199,32,165 

210 DATA 255,32, 165,255, 169,0, 132, 251,32, 165, 255,133, 252, 
32,165, 255,133, 253 | 

220 DATA 166, 252,32, 205,189,32,179,199,160,0,32,165,255, 
72,32,187,199, 104,153 

230 DATA 64,3,240,3,200, 208, 240,32, 165, 255,32, 165, 255,16 
5,144,240,3,76,71,197 

240 DATA 165, 253,208, 6,165, 252,201,152, 144,10, 169, 252,16 
0,200,32,30,171,76,65 

250 DATA 197,165, 251,201,48,144,10,169,27,160,201,32,30, 
171,24,144,237,169,0 

268 DATA 133,8,169,31,133,211,169,51, 160, 201,32,30, 171,3 
2, 225,199, 201,78,248 

270 DATA 82,201,74,208,245,169,69, 160, 201,32,30, 171,165, 
251,32,241,198,162,0 

280 DATA 232,189,64,3,201,34, 208, 248,134, 253,232,189,64, 
3,201,34, 240,6, 145,65 

290 DATA 232,200, 208, 243,138, 164, 251,24, 229,253,153,64,2 
02,189,64,3, 2808, 10,169 

308 DATA 81,166, 201,32,30,171,76,65,197, 201,83, 240, 242,2 
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540 


330 


7.77] 


370 


580 


390 


4089 


410 


420 


430 


440 


450 


460 


470 


480 


470 


300 


01,80,240,3,2372, 2708 

DATA 230,239, 251,24,144,7,169,107,160,201,32,50,171, 

32,182,199, 76,125, 1976 

DATA 169,8,32, 195,255, 165, 251, 208,3, 76,8,196,169, 119, 
160, 201,32,30, 171,32 

DATA 225,199,201,49,240,7,201,50, 208, 245, 169,0,44,169 
‚255,133,254,169,15 

DATA 32,195,255,16?2,9,134,252,169,199,160,201,32,3@, 

171,164, 252,190, 64, 2072 

DATA 165, 252,32,241,198,177,65,32, 210, 255, 200, 202,20 

8,247,169,2,162,8,168 

DATA 32,186, 255,166, 252,189, 64,202, 133,34, 165, 252,32, 
241,198,162,0,177,65 | 

DATA 157,64,3,200, 232,198, 34,208, 245,160,0,185,210,2 

01,157,64,3,2700, 232 

DATA 192,4,144,244,138,162,64,160,3,32,189,255,32,19 

?2,255,169,9,160,0,132 

DATA 34,133,35,173,17,208,41,239,141,17,208,169, 15,1 

62,8,168,32, 186, 255 

DATA 169,3,162,215,160, 201,32, 189, 7255,32,192,255,162, 
2,32,15,243,32,31,243 

DATA 165,186,32,1890, 255,165, 185,32, 150, 255, 160,0,32, 

165, 255,32, 9,199, 166 

DATA 144,240, 246, 32,235,199,8,169, 2,32, 195, 255,173,1 

7,208,9,16,141,17,208 

DATA 40, 144,3,32,55,199, 166, 252, 165,34, 133,174,165,3 

5,133,175,232, 165,252 

DATA 208,13,169,78,160, 200, 32,30,171,32,225,199,32,3 

7,200,169, 227,160, 201 | 

DATA 32,36,171,164,252,190,64, 202,165, 252,32,241,198, 
177,65, 32,210, 255, 208 

DATA 292,708, 247,162,1,169,0,168,32, 186, 255,166, 252, 

189, 64,202, 133,34, 165 

DATA 252,32, 241,198,162,0,177,65,157,64,3,232,200,19 

8,34, 208, 245, 138,162 

DATA 64,160,3,32, 189, 255,160,0,169,9,132,172,133,173, 
177,172,133,167,200 

DATA 177,172,133,168, 200, 132,172,165, 174,56, 229,172,8 
„24,101,167,133,169 

DATA 165,175,101,168,40,229,173,133,170,162,5,134,171 
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„32,133,192,32, 229 

510 DATA 198,230, 252,166, 252, 228,251,176,7,36,254,16,16, 
76, 223,198,169, 237,160 

528 DATA 201,32,30,171,32,225,199,76,0,196,32,85,199,169, 
78,160, 200, 32,30, 171 

530 DATA 32, 225,199,32,37,200,32,182,199,76,117,197,32,1 
15,199,173,17,2808,9 

540 DATA 16,141,17,208,96,160,0,10,10,132,66,10,38,66,1@, 
38, 66, 1335, 65,165, 66 

550 DATA 24,105,703,133,66, 160,0, 96, 145,34, 230, 34, 208,2, 
230,35,88, 96,32,165 

560 DATA 255,41,15,10,10,10,10,133,87,32, 165, 255,41,15,5, 
87,96, 72,74, 74, 74,74 

570 DATA 32,47,199,104,41,15,24, 105,48, 76,210, 255, 173,17 
‚208, 9,16,141,17,208 

580 DATA 169,7,16%, 202,32,30, 171,32, 225,199,201,89,208,1, 
96, 201,78, 208, 244,76 

590 DATA 208, 199,169, 26,160, 202,32,30, 171,165, 252,10, 1®, 
10,10, 166, 252,188, 64 

608 DATA 202,170, 189,0,203,32,21%, 255, 232,136, 208, 246,96, 
173,17,208,41, 239,141 

618 DATA 17,208,169, 15,32, 195,255, 169,15,162,8,168,32,186 
‚255,169,3,162,219 

520 DATA 160, 201,32,189, 255,32, 192, 255,169, 15, 76,195, 255 
‚32, 228, 255,240, 251 

6390 DATA 96,169,15,162,8,168,32, 186, 255, 169,1,162, 223,16 
0,201,32,189, 255,76 

648 DATA 192, 255,169,32,44,169, 13,76, 210, 255,32, 210,255, 
138, 72,152, 72,32, 225 

650 DATA 255, 24,208,1,56, 104,168, 104,170,176,1,96,162,24 
6,154, 32, 229,198, 169 

668 DATA 15,32, 195, 255,32, 231,255, 76,0, 196,32, 228, 255,20 
8,233,32, 190,199, 144 

678 DATA 246,162,15,32, 15,243, 32,31, 243,165,186,32,186, 2 
55,165, 185,32, 150, 255 

580 DATA 32,19,199,201,32,8,144,11,72,32,182,199,32,182, 
199,104,32,38, 199,32 

690 DATA 165, 255, 201,13,240,9,40,8,144, 245, 32,210, 255,14 
4,240,32,171, 255,40 

7908 DATA 96,32,56, 248,32, 205,199, 208, 248,169, 7,133,192,7 
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6, 202, 252,13,13,13,18 

716 DATA 81,85,69,76,76,68, 73,83, 75,146,32,69, 73,78, 76,6 
9,71,69, 78,32,33,8,13 

720 DATA 13,18,90,73,69,76,67,65,83,83,69,84,84,69, 146,3 
2,69,73,78, 76,69, 71 

736 DATA 69, 78,32,33,13,8,147,17,28,32,32,32,32,32,32,32, 
66, 65,67, 75,85, 880,32 

7408 DATA 86, 79,78,32,68, 73,83, 75,69,84,84,69,32,65,85,70 

18.13,81,32.32,32,33 

750 DATA 32,32,32,32,32,32,32,32,32,32,67,65,83,83,69,84, 
84,69,13,13,32,32,32 

760 DATA 32,32,32,32,32,77,73,84,32,18,129,70,32,65,32,83 
‚„32,84,32,84,32,65 

778 DATA 32,80,32,69,32,146,13,13,13,32,32,32,40,67,41,32 
‚32,32,32,68, 73,82 

780 DATA 75,32,80, 65,85, 76, 73,83,83,69,78,32,32,13,13,13 
‚30,32,32,32,32,32,32 

798 DATA 32,32,32,32,32,69,32,61,32,69, 78,68, 69,31,0,13, 
28,18,33,33,18,32,98 

890 DATA 85,32, 76, 65,78, 71,69, 32, 90,85, 77,32,67,79,80,73, 
69,82,69,78,32,31,® 

818 DATA 13,28,18,33,33,18,32, 76, 73,853,84,69,32,73,83,84 
‚32,86, 79,76, 76,32,31 

820 DATA 0,18, 74,65,47,78,69, 73,78, 157,157, 157,157,157,1 
57,157,146,31,0,18,380 

830 DATA 32,32, 74,65,32,32,146,32,31,0,13,28,18,33,33,18, 
32,73,76,76,69, 71,65 

840 DATA 76,69,82,32,70,73,76,69,84,89,80,31,0,28,18,32, 
78,69, 73, 78,32, 146,32 

850 DATA 31,0,13,13,13,87,79,76, 76,69, 78,32,83,73,69,32, 
68, 73,69, 32,88,82,79 

86@ DATA 71,82,65,77,77,69,13,13,32,32,32,32,49,32,32,32, 
32,68, 85, 82,67,72, 71 

870 DATA 69,72,69,78,68,13,13,32,32,32,32,50,32,32,32,32 
‚69, 73,78,90,69,76,78 

886 DATA 13,13,67,79,80,73,69,82,69,78,32,63,0,13,13,82, 
69,65, 68, 73,78, 71,32 

890 DATA 0,44,80,44,82,0,85,73,45,0,85,73,43,0,73,0,36,®, 
13,13,83, 65, 86, 73, 78 

9908 DATA 71,32,0,13,13,28,18,69,78,68,69,32,68,69,83,32, 
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67,79,89,73,69,82,69 
916 DATA 78,83,32,146,31,0,13,32,87,69,73,84,69,82,32, 77, 
65,67,72,69,78,32,63 . 
926 DATA 32,6,13,13,78,65,69,67,72,83,84,69,83,32, 70,73, 
76,69,32,58,32,® 
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FKRHRRERFRRHHRERKHTRFHRKFTFK TH N GH TH HF FF EF KH FH FH IF TH FH TR FH N TH N TH TH NH GH TH FE N HF HF N N TH FH HH NN 
106 REM BACKUP DISKETTE => CASSETTE FUER VCrE 
FRERHEEEHREEERTHERRRTRTR KH HK FH IH KH KH IK TH NH IH NH FH KH N FH N NIKI N HT NH HR FH HERRN 

118 E=31156:A=29696: PS=® 

128 FOR I=A TO E:READ X:POKE 1,X:PS=PS+X:NEXT 

136 IF PS<>145927 THEN PRINT"FEHLER IN DATAS":END 

148 SYS A:NEW 

150 DATA 169,25,141,15,144,169,6,141,134,2,159,19,160, 12 
0,32,30, 203,169, 221 

160 DATA 166,119,32,30,203,32,69,119,201,69,208,1,96,32, 
98,119,32,98, 119,32 

176 DATA 75,119,169,8,170, 160, 0,32, 186, 255,159,1,162,103, 
160, 121,32, 189,255 

186 DATA 32,192,255,169,8,32, 180, 255,169, 0,32, 159, 255,160 
„4,32, 165, 255,136, 208 

196 DATA 2590,32, 165, 255,133, 34,32, 165,255, 166,34,32,205, 
221,32,95,119,32,165 

208 DATA 255, 240,6,32,210, 255,24, 144,245,32,98,119,32,98, 
119,32,165,255,32,165 

210 DATA 255,160,0,132,3,32, 165,255, 133,4,32, 165, 255,133 
‚„5,166,4,32, 285, 221 | 

220 DATA 32,95,119,160,0,32, 165,255, 72,32,1803,119,104, 15 
3,64,3,240, 3,200, 208 

230 DATA 240,32, 165, 255,32,165, 255,165, 144,240,3,76,64,1 
17,165,5, 208,6, 165,4 

248 DATA 201,93,144,10,169,133, 160, 120, 32,30, 203, 76,58,1 
17,165,3,201,48,144 

250 DATA 10,169,164,160,120,32,30,203,24,144,237,169,0,1 
33,8,169, 1898, 160,120 

268 DATA 32,30,203,32,138,119,201,78,240,82,201,74,208,2 
45,169, 206, 160, 120,32 

270 DATA 30, 203,165,3,32,203,118,162,0,232,189,64,3,201, 
34,208, 248, 134,5, 232 

280 DATA 189,64,3,201,34, 240,6, 145,65, 232,200, 208, 243,13 
8,164,3,24,229,5,153 

290 DATA 64,122,189,64,3, 208,10, 169,218, 160, 120,32,30, 26 
3,76,58,117,201,83, 248 

300 DATA 242,201,80,240,3,232, 208,230, 230,3, 24,144,7,169, 
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244,160, 120,32,30, 203 

318 DATA 32,98,119,76,122,116,169,8,32, 195,255, 165,3, 208 
,3,76,0,116,169,0,160 

320 DATA 121,32,30,203,32,138, 119, 291,49,240,7,291,59, 26 
8,245, 169,0,44, 169, 255 

330 DATA 133,5,169, 15,32, 195,255, 162,0, 134,4,169,77,169, 
121,32,30, 203, 164,4 5 

348 DATA 190,64,122,165,4,32,203,118,177,65,32,210, 255,2 
00, 202, 208, 247,169, 2 

356 DATA 162,8,168,32, 186,255, 166,4,189,64,122, 133, 34,16 
5,4,32,203,118,162,0 

368 DATA 177,65,157,64,3,200,232,198,34,208,245,160,®,18 
5,88, 121,157,64,3,200 

370 DATA 232,192,4,144,244,138,162,64,160,3,32, 189, 255,3 
2,192, 255,169,19,160 

380 DATA 0,132,34,133,35,169,15,162,8,168,32, 186, 255,169, 
3,162, 93,160, 121,32 

398 DATA 189, 255,32,192, 255,162, 2,32, 207, 243,32, 223,243, 
165, 186,32, 180, 255, 165 

406 DATA 185,32, 159,255, 160, 0,32, 165, 255,32,227,118,166, 
144,240, 246,32,148, 119 

418 DATA 8,169, 2,32, 195, 255,40,144,3,32,17,119,166,4,165, 
34,133, 174, 165,35, 133 

420 DATA 175,232, 165,4, 208, 13,169, 247,160,119,32,30, 203, 
32,138, 119,32, 206,119 

430 DATA 169, 105,160, 121,32,30,203,164,4,190,64,122,165, 
4,32, 203, 118,177,65 

448 DATA 32,210,255, 200,202, 208, 247,162,1,169,0,168,32,1 
86, 255, 166, 4,189, 64 

450 DATA 122,133,34,165,4,32, 203,118, 162, 0,177,65,157,64, 
3,232, 200, 198,34, 208 

460 DATA 245,138, 162,64,160,3,32, 189, 255,169, 0,169,19,132 
„172,133,173,177,172 

478 DATA 133, 167,200, 177,172,133, 168, 200, 132, 172,165,174 
„56, 229,172,8,24,101 

480 DATA 167,133, 169,165, 175,101, 168,40, 229,173, 133,170, 
162,5,134,171,32,127 

498 DATA 112,230,4,166,4,228,3,176,7,36,5, 16,16, 76, 197,1 
18,169, 115,160, 121,32 

508 DATA 30, 203,32, 138, 119,76,0,116,32,39,119, 169, 247,16 
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340 


560 
576 
90 


3708 


610 
620 
650 
640 
630 
668 
670 
680 
6708 


700 


8,119,32,30,203,32,138 

DATA 119,32,206,119,32,98,119,76,116,117,160,0,10,10, 
132,66, 10,38, 66,10 

DATA 38,66, 133,65, 165,66, 24, 105,123, 133,66, 160,0, 96, 
145,34, 230,34, 208,2 | 

DATA 230,35,88, 96,32, 165, 255,41,15,.10,10,10,10,133,8 
7,32, 165, 255,41,15,5 

DATA 87,96,72,74,74,74,74,32,9,119,104,41,15,24,105, 
48,76, 210, 255,169, 141 


; DATA 169,121,32,30, 203,32,138,119, 201,89, 208,1,96,20 


1,78, 208,244, 76,124 
DATA 119,169, 160,160, 121,32,30, 203, 165,4,10,10,10,10®, 
166,4, 188,64,122,1780 

DATA 189,0,123,32,210, 255, 232,136, 208, 246, 96, 32,228, 
255,240, 251,96,169,15 

DATA 162,8,168,32,186,255,169,1,162, 161,160, 121,32,1 
89, 255, 76,192, 255,169 

DATA 32,44,169,13, 76,210, 255,32, 210, 255,138, 72,152,7 
2,32, 225,255, 24,208 

DATA 1,56, 104,168, 104,170,176,1,96, 162, 246,154, 169,1 
5,32,195,255,32,231 

DATA 255, 76,0,116,32, 228, 255, 208, 236, 32,106, 119,144, 
246,162,15,32, 207,243 

DATA 32,223, 243,165, 186,32, 186, 255, 165, 185, 32, 156, 25 
5,32,237,118,2801,32 

DATA 8,144,11,72,32,98,119,32,98,119,104,32,0,119,32, 
165, 255, 201,13, 248 

DATA 9,40,8, 144,245, 32,210, 255, 144,240, 32,171,255,40 
‚76,32,183,248,32,121 

DATA 119,208, 248, 169,7,133,192,76,8,253,13,13,13,18, 
81,85, 69, 76, 76, 68,73 

DATA 83,75,146,32,69, 73,78, 76,69,71,69, 78,32,33,0,13, 
13,18, 90, 73,69, 76,67 

DATA 65,83,83,69,84,84,69, 146, 32,69, 73,78, 76,69, 71,69 
‚78,33,13,@,147,17 

DATA 28,32,32, 66, 65,67, 75,85, 80, 32,86, 79, 78,32, 68,73 
‚83, 75,69,84,84,69,13 

DATA 13,31,32,32,32,32,32,32, 65,85, 70,32,67,65,83,83, 
69,84,84,69,13,13,77 

DATA 73,84,32,18,129,70,32,65,32,83,32,84,32,84,32,65 
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710 


720 


730 


7408 


759 


760 


778 


780 


770 


800 


818 


8729 


850 


840 


930 


940 


‚32,80, 32,69,32,146 
DATA 13,13,13,32,40,67,41,32,32,32,32,68, 73,82, 75,32 
‚80, 65,85, 76, 73,83, 83 

DATA 69, 78,13,13, 13,30, 32,32, 32,32,32,69,32,61,32,69, 
78, 68,69,31,0,13,28 

DATA 18,33,33, 18,32, 90,85, 32, 76,65, 78,71,69,32, 90,85 
‚77,32,67,79,80, 73,69 

DATA 82,69, 78,32,31,0,13,28, 18,33, 33, 18,32, 76, 73,83, 
84, 69,32, 73,83, 84,32 

DATA 86, 79,76, 76,32,31,9, 18, 74,65, 47,78,69,73,78,157, 
157, 157,157, 157,157 
DATA 157,146,31,0,18,30,32,32,74,65,32,32,146,32,31,0 
‚13,28,18,33,33,18 

DATA 32,73,76,76,69,71,65,76,69,82,32, 70,73, 76,69, 84 
‚89,89,31,0,28, 18,32 

DATA 78,69,73,78,32,146,32,31,0,13,13,13,87,79,76,76, 
69,78,32,83,73,69,32 

DATA 68,73,69,32, 13,80, 82,79, 71,82,65,77,77,69,13,13 
„32,32,49,32,32,32,32 

DATA 68, 85,82,67,72,71,69,72,69,78,68,13,13,32,32,50, 
32,32,32,32,69,73,78 

DATA 90,69,76,78,13,13,67,79,80,73,69,82,69,78,32,63 
‚9,13,13,82,69,65,68 

DATA 73,78,71,32,0,44,80,44,82,0,85,73,45,0,85,73,43, 
0,73,0,36,0,13,13,83 

DATA 65,86, 73,78,71,32,0,13,13,28, 18,69, 78,68, 69,32, 
68,69, 83,32,67, 79,80 | 
DATA 73,69,82,69,78,83,32,146,31,9,13,32,87,69,73,84, 
69,82,32, 77,65, 67,72 

DATA 69, 79,32,63,32,0,13,13,78,65,69,67,72,83,84,69, 
83,32, 79,73,76, 69,32 

DATA 58, 32,13,90 
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15.4 PROGRAMMBESCHREIBUNG BACKUP DISK-CC 


Für Interessierte und der ASSEMBLER-Sprache Kundige nun noch 


eine Beschreibung des nicht gerade kurzen Programms. 
Vorbemerkung: 


Dieses Programm arbeitet mit zwei unterschiedlichen Lade- 
bzw Speicherstartadressen. Die tatsächliche Startadresse ist 
die Adresse des Puffers, unter der das Programm zum kopieren 
zwischengespeichert wird. Die eigentliche Startadresse ist 
die, unter der das Programm mormalerweise steht und 


arbeitet. 
Das Programmprinzip ist folgendes: 


Nach der Disketteninitialisierung werden zuerst die 
Filenamen eingelesen und im Cassettenpuffer ab $0340 
zwischengespeichert. Dann wird der Anwender gefragt, ob das 
Programm kopiert werden soll oder nicht. Wird die Frage mit. 
"J" beantwortet, wird getestet, ob die maximale Blocklänge 
bzw. die Filenamenlistenlänge überschritten wird und ggf. 
eine Fehlermeldung ausgegeben. Wird keine Überschreitung 
festgestellt, wird der Filename und seine Länge in zwei 
Tabellen (NAMTAB, -LNGTAB) hinter dem Backup-Programm 
übertragen. Weiterhin testet das Programm auch auf den 
Filetyp des zu kopierenden Files. Handelt es sich nicht um 


ein Programmfile, wird eine Fehlermeldung ausgelesen. 


Wurde auf diese Weise das ganze Inhaltsverzeichnis 
bearbeitet, wird in die eigentliche Copierroutine 


gesprungen. 


Nach Ausgabe von "READING name" wird der entsprechende 
Filename wieder in den Cassettenpuffer übertragen und ",P,R" 
angehängt. Mit dem so erweiterten Filenamen wird eine 
Lesedatei eröffnet und das entsprechende Programm nach $0900 
(VC 20 = $1300), der tatsächlichen Programmladeadresse 
(TLSADR), geladen. Wenn beim Lesen kein Fehler aufgetreten 


ist, wird der FastTape-Speicherroutine die Programmstart- 
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und Endadresse, die in den Programm-Header geschrieben 
werden soll und die tatsächliche Programmstart- und 
Endadresse, unter der das Programm zur Zeit abgespeichert 
wurde, übergeben. Danach wird zur FastTape-Routine "ABSOLUT" 
verzweigt. Anschließend wird wieder zum Start 

zurückgesprungen, falls noch weitere Files kopiert werden 


sollen. 


Ich habe das ASSEMBLER-Listing mit vielen Kommentaren 
versehen, um den Programmablauf weitgehendst klar zu machen. 


Zum Abschluß noch eine grundsätzliche Bemerkung. 


Die Diskettenstation kann mit zwei Übertragungsgeschwin- 
digkeiten arbeiten. Eine schnellere, speziell für den VC 20, 
und eine langsame für den C-64, da dieser durch die 
Bildschirmsteuerung etwas langsamer arbeitet. Schaltet man 
den Bildschirm aus, arbeitet der C-64 genauso schnell wie 
der VC 20 und kann so mit der höheren Übertragungsrate die 
Diskette ansteuern. Aus diesem Grunde wird bei dem 
Ladevorgang der Bildschirm ausgeschaltet und die Diskette 
auf die höhere Übertragungsrate umgestellt. 


Das erklärt, warum für den VC 20 die entsprechenden 
Umschaltungen, die im Listing deutlich gekennzeichnet sind, 


entfallen. 
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A WICHTIGE SPEICHERSTELLEN 


Hex 


+000 1 


000A 
002B-002C 
002D-O0O2E 
002F-0030 
0031-0032 
0033-0034 
0037-0038 
0090 
0093 
0098 
0099 
O09A 
OOA6 
OOAC-OOAD 


OOAE-OOAF 
00B2-00B3 
00B7 
00B8 
00B9 
OOBA 
OOBE 
OOBD 
00CO 
00C1-00C2 
00C3-00C4 
033C-O3FB 


Dezimal 


10 
33.= 
35 = 
31 = 
49 - 
Bi: a 
II, = 
144 
147 
152 
153 
154 
166 
112 ,= 


174 - 
178 - 
183 
184 
185 
186 
190 
191 
192 
493: = 
3193.55 
828 - 


34 
36 
38 
50 
52 
56 


194 
196 
1019 


ANHANG 


Bedeutung 


Ausgaberegister der CPU 

Bit3 Schreibleitung für Datassette 
Bit4 CASS-SENS, Recordertastenabf. 
Bit5 Motorsteuerung 

LOAD/VERIFY - Flag; O=LOAD/1=VERIFY 
Zeiger Basic-RAM-Start 

Zeiger Basicprogramm Ende/Variablen Start 
Zeiger Beginn der Felder 

Zeiger Ende der Felder 

Zeiger auf Ende der Strings 

Zeiger auf Ende des Basic-RAM 

Statusbyte 

LOAD/VERIFY - Flag; O=LOAD/1=VERIFY 
Anzahl der offenen Files 

Eingabegerät 

Ausgabegerät 

Zeiger in Cassettenpuffer 

Zeiger auf aktuelles Byte beim Schreiben 
und Lesen 

Zeiger auf Prg. Ende beim Lesen/Schreiben 
Zeiger auf Start des Cassettenpuffers 
Filenamenlänge 

Aktuelle logische Filenummer 

Aktuelle Sekundäradresse 

Aktuelle Geräteadresse 

Pass-Zähler beim Lesen und Schreiben 
Ein-/Ausgabebyte 

Cassettenmotor Flag 

Ein-/Ausgabe Startadresse 

Ein-/Ausgabe Endadresse 


Cassettenpuffer 
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O33C 828 
033D-O33E 829 
033F-0340 831 


0341- 833 
*911c 37148 
*I11F 37151 


*9 120 37152 


+ : Gilt nur für 
* . Gilt nur für 


- 830 
- 832 
C-64 

VCc 20 


Filetyp 

Prg. Startadresse 

Prg. Endadresse 

Filenamen 

Bit5 Cassettenmotor Schalter 
Bit6 CASS-SENS; Recordertastenabfr. 
Bit3 Schreibleitung 
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Laden, Starten- 
Klar! 


DIE DISKETTE ZUM BUCH 


Über 500.000 DATA BECKER Bücher sind bisher verkauft und 
das nicht ohne Grund. Die beliebten DATA BECKER Stan- 
dardwerke zum VC 20 und zum COMMODORE 64 stecken 
voller Programmiertips und Listings, die jeder Leser 
am liebsten sofort am Gerät ausprobieren möchte. 
Doch ohne fleißiges Abtippen der Programme 
läuft nichts. Abtippen ist so langweilig wie 
unzuverlässig; der kleinste Tippfehler kann 
den ganzen Spaß verderben. Ab sofort 
nimmt Ihnen DATA BECKER diese 
Arbeit ab. Die DISKETTEN ZUM BUCH 
enthalten alle Programme und 
Utilities, die Sie als Listing im jeweiligen 
Buch finden. Diskette ins Laufwerk, ge- 
wünschtes Programm laden; starten 
und schon können Sie mit der ausge- 
tüftelten Software der DATA BECKER 
Autoren arbeiten. Und: Sie haben die 
Sicherheit, daß diese Programme ° 
wirklich auf Anhieb laufen. 

ist das nichts? 


Die Diskette zum Buch: 
Das große Drucker-Buch. DM 39,- 


Die Diskette zum Buch: 
Das Maschinensprachebuch 


zum COMMODORE 64. DM 39,- — 
Die Diskette zum Buch: 


Die Diskette zum Buch: ’ 
Das Maschinensprachebuch für N 
Fortgeschrittene zum COMMODORE : 
64. DM 39,- Die Diskette zum Buch: 
Das Grafikbuch zum 
Die Diskette zum Buch: COMMODORE 64. DM»39,- 


Das große Floppy-Buch. DM 39,- 
Die Diskette zum Buch: 


Die Diskette zum Buch: 64 INTERN. DM 39,- et 
64 Tips & Tricks. DM 39,- Die Diskette zum Buch: 
Die Diskette zum Buch: Das Trainingsbuch zu Datamat 
Die Diskette zum Buch: Das 64 für Profis. DM 39,- DM 39,- 

Schulbuch zum COMMODORE 64. an ! 
Diese Superdiskette enthält zusätz- Die Diskette zum Buch: Die Diskette zum Buch: 
lich Rs 14 weitere LE Dprogramıme VC-20 Tips & Tricks. DM 39,- le Adventures - 
und ein ca. 70seitiges Handbuch. i i i 

Ein absolutes Muß für Schüler, Lehrer Die Diskette zum Buch: NG WIE MaNSIE ne 


und Eltern. DM 49- APPLE II Tips & Tricks. DM 39,- 


DATA BECKER BÜCHER & PROGRAMME erhalten Sie im Computer-Fachhandel, in guten 
Buchhandlungen und in den Fachabteilungen der Kauf- und Warenhäuser. 


DATA BECKER 


Merowingerstr. 30 : 4000 Düsseldorf - Tel. (0211) 310010 - im Hause AUTO BECKER 


DAS 
SCHULBUCH 
ZUM 
COMMODORE 64 


Ein neues DATA BECKER BUCH, 
das den Einsatz des COMMO- 
DORE 64 in der Schule ent- 
Scheidend mitprägen dürfte, 
wurde von Professor Voß 
geschrieben. Besonders für 
Schüler der Mittel- und Ober- 
stufe geschrieben, enthält 
das Buch viele interessante 
Problemlösungs- und Lernprogramme, die beson- 
ders ausführlich und leicht verständlich beschrie- 
ben sind. Sie ermöglichen ein intensives und anre- 
gendesLernen, unter anderem mitfoigendenThe- 
men: Satz des Pythagoras, quadratische Gleichun- 
gen, geometrische Reihen, Pendelbewegungen, 
mechanische Hebel, Molekülbildung, exponentiel- 
leswWachstum, Vokabelnlernen, unregeimäßigeVer- 
ben, Zinseszinsrechnung. Ein kurzer Überblick über 
die Grundlagen derEDV, eineknappeWiederholung 
der wichtigsten BASIC-Elemente und eine Einfüh- 
rung in die Grundzüge der Problemanalyse vervoll- 
ständigen das Ganze. Mit diesem Buch machen die 
Hausaufgaben wieder Spaß! 


DAS SCHULBUCH ZUM COMMODORE 64, 1984, über 300 
Seiten, DM 49,- 


Tempo! 


MASCHINENSPRACHE FÜR 
FORTGESCHRITTENE ist be- 
reits das zweite Buch von 
Lothar Englisch zum Thema 
Maschinenprogrammierung 
mit dem COMMODORE 64. 
Hier wird von der Problem- 
analyse bis zum Maschinen- 
sprachealgorithmus in die 
Grundiagen der professio- 
nellen Maschinensprache- 
programmierung eingeführt. In diesem Buch fin- 
den Sie unter anderem folgende Themen behan- 
delt: Problemlösungen in Maschinenspräche, Pro- 
grammierung von Interruptroutinen, Interrupt- 
quellen beim COMMODORE 64, Interrupts durch 
CIA's und Videocontroller, Programmierung der 
Ein-Ausgabe-Bausteine, die CIA's des COMMODORE 
64, Timer, Echtzeituhr, parallele und serielle Ein/ 
Ausgabe, BASIC-Erweiterungen, Programmierung 
eigener BASIC-Befehle und -Funktionen, Möglich- 
keiten zur Einbindung ins Betriebssystem sowie 
viele weitere Tips & Tricks zur Maschinenprogram- 
mierung. Dieses Buch sollte jeder haben, der wirk- 
lich intensiv mit der Maschinensprache des COM- 
MODORE 64 arbeiten will. 


MASCHINENSPRACHE FÜR FORTGESCHRITTENE, 1984, 
ca. 200 Seiten, DM 39,- 


EIN DATA BECKER BUCH 


.grammlistings vor allem 


Macht Druck. 


DAS GROSSE DRUCKERBUCH 
für Drucker-Anwender mit 
COMMODORE-Computern ist 
endlich da! Es enthält eine 
riesige Sammlung von Tips 
& Tricks, Programmlistings 
und Hardwareinformatio- 
nen. Rolf Brückmann und. 
Klaus Gerits beschäftigen 
sich mit Sekundäradressen, 
Anschluß einer Schreib- 
maschine am Userport, Druckerschnittstellen (Cen- 
tronics, V 24, IEC-Bus), hochauflösender Grafik, Text- 
und Grafikhardcopy, Grafik mit Standardzeichen- 
satz, formatierter Datenausgabe, Plakatschrift, 
Textverarbeitung und vieles mehr. Zusätzlich wird 
das Betriebssystem des MPS801 zerlegt, mit Prozes- 
sorbeschreibung (8035), Blockschaltbild und einem 
ausführlich kommentierten ROM-Listing. Thomas 
wiens schrieb den Teil über die Programmierung 
des PlottersVC-1520: Handhabung desPiotters, Pro- 
grammierung von Sonderzeichen, Funktionendar- 
stellung, Kuchen und Säulendiagramme, Entwurf 
dreidimensionaler Gegenstände. Natürlich wieder 
viele interessante Listings. Unentbehrlich für 
jeden, der einen COMMODORE 64 oder VC-20 und 
einen Drucker besitzt. 


DAS GROSSE DRUCKERBUCH, 1984, über 300 Seiten, 
DM 49,- 


Tausend- 
sassa. 


Fast alles, was man mit dem 
COMMODORE 64 machen 
kann, ist in diesem Buch aus- 
führlich beschrieben. Es ist 
nicht nur spannend zu lesen 
wie ein Roman, sondern ent- 
hält neben nützlichen Pro- 


EIN DATA BECKER BUCH 


viele, viele Anwendungs- 

möglichkeiten des C64. Dabei wurde besonderer 
Wert darauf gelegt, daß das Buch auch für Laien 
leicht verständlich ist. Eine Auswahl aus der The- 
menvielfalt: Gedichte vom Computer, Einladung 
zur Party, Diplomarbeit - professionell gestaltet, 
individuelle Werbebriefe, Autokosten im Griff, Bau- 
kostenberechnung, Taschenrechner, Rezeptkartei, 
Lagerliste, persönliches Gesundheitsarchiv, Diät- 
plan elektronisch, intelligentes Wörterbuch, kleine 
Notenschule, CAD für Handarbeit, Routenoptimie- 
rung, Schaufensterwerbung, Strategiespiele. Teil- 
weise sind Programmiistings fertig zum Eintippen 
enthalten, soweit sich die „Rezepte auf 1-2 Seiten 


realisieren ließen. Wenn Sie bisher. nicht immer 


wußten, was Sie mit ihrem 64er alles anfangen soll- 
ten, nach dem Lesen des IDEENBUCHES wissen Sie's 
bestimmt! 


DAS IDEENBUCH ZUM COMMODORE 64, 1984, über 200 
Seiten, DM 29- 


Prof. 64. 


Ein faszinierendes Buch, um 
in die Welt der Wissenschaft FÜR regen 
einzusteigen, hat Rainer 

Severin geschrieben. ZU- 
nächst werden Variablen- 
typen, Rechengenauigkeit 
und nützliche POKE-Adres- 
sen des COMMODORE 64 
bezüglich den Anforderun- 
gen wissenschaftlicher Pro- 
bleme analysiert. Verschie- 
dene Sortieralgorithmen wie Bubble, Quick und 
Shell-Sort werden miteinander verglichen. Die Pro- 
grammbeispiele aus der Mathematik nehmen 
dabei eine zentrale Stelle im Buch ein: Nullstellen 
nach Newton, numerische Ableitung mit dem Dif- 
ferenzenquotienten, lineare und nichtlineare 
Regression, Chi-Quadrat-Verteilung und Anpas- 
sungstest, Fourieranalyse und -synthese, Skalar-, 
Vektor- und Spatprodukt, ein Programmpaket zur 
Matrizenrechnung für Inversion, Eigenwerte und 
vieles weitere mehr. Programme aus der Chemie 
(Periodensystem), Physik, Biologie (Schadstoffe in 
. Gewässern - Erfassung der Meßwerte), Astronomie 
(Planetenpositionen) und Technik (Berechnung 
komplexer Netzwerke, Platinenlayout am Bild- 
Schirm) und viele weitere Softwarelistings zeigen 
die riesigen Möglichkeiten auf, dieder Computerin 
Wissenschaft und Technik hat. 


COMMODORE 64 FÜR TECHNIK UND WISSENSCHAFT, 
1984, über 200 Seiten, DM 49,- 


WISSENSCHAFT 


Grundkurs. 


Das neue BASIC-Trainings- Das 
buch zum C-64 ist eine aus- - BASIC 
führliche, didaktisch gut TIEREN 
geschriebene Einführung in BE 
das CBM BASIC V2. .Alle 
Befehle werden ausführlich 
erläutert. Dieses Buch geht 
'aber über eine reine Befehls- 
beschreibung hinaus, es wird EM DATA BECKER BUCH 
eine fundierte Einführung iin 
die Programmierung gege- 
ben. Von der Problemanalyse bis zum fertigen 
Algorithmus lernt man das Entwerfen eines Pro- 
grammes und den Entwurf von Datenflußplänen. 
ASCII-Code und verschiedene Zahlensysteme wie 
hexadezimal, binär und dezimal sind nach der Lek- 
türe des Buches keine Fremdworte mehr. Die Pro- 
grammierung von Schleifen, Sprüngen, bedingten 
Sprüngen lernt man leicht durch „learning by 
doing‘ So enthält das Trainingsbuch viele Auf- 
gaben, Übungen und unzählige Beispiele. Den 
Schluß des Buches bildet eine Einführung ins pro- 
fessionelle Programmieren, in der es um mehr- 
dimensionale Felder, Menuesteuerung und Unter- 
programmtechnik geht. Endlich ein Buch, das 
ihnen wirklich hilft, solide und sicher BASIC zu ler- 
nen. 


BASIC TRAININGSBUCH ZUM COMMODORE 64, 1984, 
ca. 250 Seiten, DM 39, 


COMMODORE 64 


Sarg und Klang! 


Der COMMODORE 64 ist ein 
Musikgenie. DAS MUSIKBUCH 
hilft Ihnen, die riesigen 
Klangmöglichkeiten des C 64 
zu nutzen. DieThemenbreite 
reicht von einer Einführung 
in die Computermusik über 
die Erklärung der Hardware- 
grundlagen desCOMMODORE 
64 und die Programmierung 
in BASIC bis hin zur fort- 
geschrittenen Musikpro- 
grammierung in Maschinensprache. Einiges aus 
dem inhalt: Soundregister des COMMODORE 64, 
Gate-Signal, Programmierung der "ADSR‘-Werte, 
Synchronisation und Ring-Modulation, Counter- 
prinzip, lineare und nichtlineare Musikprogram- 
mierung, Frequenzmodulation, Interrupts in der 
Musikprogrammierung und vieles mehr. Zahl- 
reiche Beispielprogramme, komplette Songs und 
nützliche Routinen ergänzen den Text. Geschrie- 
ben wurde das Buch von Thomas Dachsel, dem 
Autor der weltbekannten Musikprogramme Syn- 
thimat und Synthesound. Erschließen Sie sich die 
Welt des Sounds und der Computermusik mit dem 
Musikbuch zum C-64! 


DAS MUSIKBUCH ZUM COMMODORE 64, über 200 sei- 
ten, DM 39,- 


Nützlich. 


Das Trainingsbuch zu MULTI- 
PLAN bieteteineguteEinfüh: 
rung in die Grundlagen der 
Tabellenkalkulation. Dabei 
wird großer Wert auf ein 
möglichst schnellesEinarbei- 
ten in die wichtigsten 
Befehle ‘gelegt, so daß man 
bald sicher mit MULTIPLAN 
arbeiten kann, ob nun auf u 
dem COMMODORE 64 oder RPTERANEREN j 
einem anderen Rechner. Am 
Ende wird man in der Lage sein, den umfangrei- 
chen Befehlssatz von MULTIPLAN auch kommerziell 
zu nutzen. Übungen am Endejedes Kapitels sorgen 
dafür, daß .man das Gelernte lange behält. Grund- 
lage des Buches sind viele Seminare, die der Autor 
zu MULTIPLAN konzipiert und erfolgreich durch- 
geführt hat. 


DAS TRAININGSBUCH ZU MULTIPLAN, 1984, ca. 250 Sei- 
ten, DM 49-- 


Für Tüftler. 

Ein hochinteressantes Buch 

für Hobbyelektroniker hat 

Rolf Brückmann vorgelegt. 

Er ist ein engagierter Techni- 

ker, für den der Computer 

Hobby und Beruf zur glei- 
chen Zeit ist. Vor allem aber 

kennt er den C-64in- und .aus- 

wendig. So werden einfüh- 

rend die Schnittstellen des 

COMMODORE 64 detailliert 

beschrieben und kurz die 

Funktionsweise der CIAs 6526 erläutert. Hauptteil 
des Buches sind die Beschreibungen der vielfälti- 
gen Einsatzmöglichkeiten des COMMODORE 64. Die 
vielen Schaltungen, von Rolf Brückmann alle selbst 


entwickelt, sind jeweils umfangreich dokumen- 
tiert und leichtverständlich erklärt. Die Reihe der 
hier ausführlich behandelten Anwendungen mit 
dem COMMODORE 64 ist äußerst umfangreich: 
Motorsteuerung, Stoppuhr mit Lichtschranke, 
Lichtorgel, A/D-Wandler, Spannungsmessung, Tem- 
peraturmessung und vieles mehr. Dazu kommen 
noch eine Reihe kompletter Schaltungen zum Sel- 
berbauen, wie ein EPROM Programmiergerät für 
den C-64, eine EPROM-Karte, ein Frequenzzähler 
und Sprachein/ausgabe (I). Zusätzlich sind jeweils 
Schaltplan, Softwarelisting und zu einigen Schal- 
en sogar zusätzlich Platinenlayouts vorhan- 
en 


DER COMMODORE 64 UND DER REST DER WELT, 1984, 
ca. 220 Seiten, DM 49,- 


Computerkünstlier. 


Das Grafikbuch zum COMMODORE 64 Buch aus der 
Bestseller-Serie von DATA BECKER stammt aus der 
Feder von Axel Plenge. Es geht weit über die reine 
Hardware-Beschreibung der 
Grafikeigenschaften desC-64 
hinaus. Der Inhalt reicht von 
den Grundlagen der Grafik- 
programmierung bis zum 
Computer Aided Design. Es 
ist ein Buch für alle, die mit 
ihrem C-64 kreativ tätig sein 
wollen. Themen sind 2.B.: Zei- 
chensatzprogrammierung, 
bewegte Sprites, High-Re- 
solution, Multicolor-Grafik, 
Lightpenanwendungen, Be- 
triebsarten des VIC, Verschie- 
ben der Bildschirmspeicher, 
IRQ-Handhabung, 3-Dimensionale Grafik, Projektio- 
nen, Kurven; Balken- und Kuchendiagramme, Lauf- 
schriften, Animation, bewegte Bilder. Viele Pro- 
grammlistings und Beispiele sind seibstverständ- 
lich. Das COMMODORE-BASIC V2 unterstützt die her- 
ausragenden Grafikeigenschaften des C-64 be- 
kanntlich kaum. Hier helfen die vielen Beispielpro- 
gramme in diesem Buch weiter, die die faszinie- 
rende Welt der Computergrafik jedermann zu- 
gänglich machen. Kompetent ist der Autor dazu wie 
kaum ein anderer, schließlich hat er das äußerst lei- 
stungsfähige Programm SUPERGRAFIK geschrieben. 


DAS ORAFIKBUCH ZUM COMMODORE 64, 1984, 295 Sei- 
ten, DM 39,- 


vielfalt. 


Auf dem neuesten Stand ist 
VC-20 TIPS & TRICKS von Dirk 
Paulissen gebracht worden, 
der über hundert Seiten 
hinzufügte. Bisher schon 
enthalten waren Informatio- 
‘nen über Speicheraufbau 
des VC-20 und die Erweite- 
rungsmöglichkeiten, ein Gra- 
fikkapitel über program- 
mierbare Zeichen, Lauf- _ 
Schrift und die Supererwei- 
terung. Stark erweitert wurde der Abschnitt über 
POKES und andere nützliche Routinen.Ob esum die 
Programmierung der Funktionstasten, Pro- 
gramme die sich selber Starten, „Maus‘-Simulation 
mit dem Joystick oder die Anderung von Speicher- 
bereichen geht, man ist immer wieder ‘über die 
Fülle der Möglichkeiten erstaunt. Der Clou dieses 
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Buches sind aber die vielen Programmlistings. Die 
BASIC-Erweiterungen allein stellen schon ein erst- 
klassiges Toolkit dar: APPEND (Anhängen von Pro- 
grammen, AUTO (automatische Zeilennummerie- 
rung), BASIC-Befehle auf Tastendruck, PRINT POSI- 
TION, UNNEW, Strings größer als88 Zeichen einlesen 
und vieles mehr. Die Bandbreite reicht von Spielen 
wie Goldgräber oder Starshooter bis zu nützlichen 
Programmen wie Cassetteninhaltsverzeichnis und 
-katalog mit automatischem Suchen nach Dateien 
und einem Terminkalender. Für den VC-20 Anwen- 
der ist dieser 324 Seiten-Wälzer eine wahre Fund- 
grube, in der es immer etwas neues zu entdecken 
gibt 

VC-20 TIPS& TRICKS, 3.erweiterte und überarbeitete 
Auflage, 1984, 324 Seiten, DM 49,- 


Interessant. 


Einen guten Einstieg in PAS- 
CAL bietet dieses Trainings- 
buch. Es gibt eine leichtver- 
ständliche Einführung, 
sowohl in UCSD-PASCAL Be 
auch in PASCAL64, wohkei 
allerdings EDV-und BASIC- PASCAL 
Grundkenntnisse voraus- URS Basen es 
gesetzt werden. Der Autor, 
Ottmar Korbmacher, ist Stu- 
dent der Mathematik. Ihm . 
gelingt es, in einem sprach- 
lich aufgelockerten Stil mit vielen interesänten 
Beispielprogrammen, dem Leser Programmstruk- 
turen, Ein/Ausgabe, Arithmetik und Funktionen, 
Prozeduren und Rekursionen, Sets, Files und 
Records näherzubringen. Die Übungsaufgaben am 
Ende jeden Kapitels helfen dabei, das Gelernte zu 
vertiefen. Ein Anhang mit allen PASCAL-Schlüssel- 
worten, der ansich schon ein umfangreiches Lexi- 
kon darstellt, macht das Buch für jeden PASCAL- 
Anwender interessant. 


DAS TRAININGSBUCH ZU PASCAL, 1984, ca. 250 Seiten; 
DM 39,- 
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Bewährt. 


Die bereits dritte Auflage 
von VC-20 INTERN ist wieder 
erheblich erweitert worden. 
Das Buch beschäftigt sich 
ausführlich mit der Technik 
und dem Betriebssystem des 
VC-20. Dazu gehört natürlich 
zuerst einmal ein ausführlich 
dokumentiertesROM-Listing. 
Dazu gehört auch die Bele- 
gung der Zeropage, dem 
wichtigsten Speicherbe- 
reich für den 6502-Prozessor, eine übersichtliche 
Auflistung der Adressen aller Betriebssystemrouti- 
nen, ihrer Bedeutung und ihrer Übergabeparame- 
ter. Dies ermöglicht dem Programmierer endlich, 
den VC-20 von Maschinensprache aus sinnvoll ein- 
zusetzen. Denn warum Routinen, die bereits vor- 
handen sind, noch einmal schreiben? Weiterer 
Inhalt: ‘Einführung in die Maschinensprache - 
Maschinensprachemonitor, Assembler, Disassem- 
bler - Verbindung von Maschinensprache- und 
BASIC-Programmen - Beschreibung der wichtigen 
IC's des VC-20 - Blockschaltbild - drei Original COM- 
MODORE-Schaltpläne. Das Buch braucht jeder der 
Sich intensiv mit der Maschinenspracheprogram- 
mierung des VC-20 auseinandersetzen möchte. 


VC-20 INTERN, 3. Auflage, 1984, ca. 230 Seiten, DM 49 - 


Starthilfe! 


DassollteihrerstesBuchzum 
COMMODORE 64 sein: 64 FÜR 
EINSTEIGER ist eine sehr 
leicht verständliche Einfüh- 
rung in Handhabung, Ein- 
satz, Ausbaumöglichkeiten FÜR EINSTEIGER 
und Programmierung des 

COMMODORE 64, die keinerlei 2| 
Vorkenntnisse voraussetzt. 

Sie reicht vom Anschluß des 
Geräts über die Erklärung 
der einzelnen Tasten und 
Funktionen sowie die Peripheriegeräte und ihre 
Bedienung bis zum ersten Befehl. Schritt für 
Schritt führt das Buch Sie in die Programmier- 
Sprache BASIC ein, wobei Sie nach und nach eine 
komplette Adressenverwaltung erstellen, die Sie 
anschließend nutzen können. Zahlreiche Abbildun- 
gen und Bildschirmfotos ergänzen den Text. Viele 
Anwendungsbeispiele geben nützliche Anregun- 
gen zum sinnvollen Einsatz des COMMODORE 64.Das 
Buch istsowohl als Einführung als auch als Orientie- 
rung vor dem 64er Kauf gut geeignet. 


64 FÜR EINSTEIGER, 1984, ca. 200 Seiten, DM 29,- 


von A bis 2. 


So etwas haben Sie gesucht: Umfassendes Nach- 
Schlagewerk zum COMMODORE 64 und seiner Pro- 
grammierung. Allgemeines Computerlexikon mit 
Fachwissen von A-Z und 
Fachwörterbuch mit Über- 
setzungen wichtiger engli- 
scher Fachbegriffe - das 
DATA BECKER LEXIKON ZUM I 
COMMODORE 64 stellt prak- 
tisch drei Bücher in einem 
dar. Es enthält eine unglaub- 
liche Vielfalt an Informatio- 
nen und dient so zugleich als 
kompetentes Nachschlage- 
werk und als unentbehr- 
liches Arbeitsmittel. Viele 
Abbildungen und Beispiele ergänzen den Text. Ein 
Muß für jeden COMMODORE 64 Anwender! 


DAS DATA BECKER LEXIKON ZUM COMMODORE 64, 
1984, 354 Seiten, DM 49,- 


Fundgrube. 


64 Tips & Tricks ist eine hoch- 
interessante Sammlung von 
Anregungen zur fortge- 
schrittenen Programmie- 
rung des et ee = 
POKE's und andere nütz: . : 
liche Routinen, interessan. jjj rs& Tricks 
ten Programmen - sowie eiuiageie nee, 
interessanten Programmier- j 
tips & -tricks. Aus dem Inhalt: 
3D-Graphik in BASIC-Farbige 
Balkengraphik - Definition 
eines eigenen Zeichensatzes - Tastaturbelegung 
und ihre Anderung - Dateneingabe mit Komfort - 
Simulation der Maus mit einem Joystick -BASIC für 
Fortgeschrittene - C-64 spricht deutsch -CP/M auf 
dem COMMODORE 64 - Druckeranschluß über den 
USER-Port - Datenübertragung von und zu ande- 
ren Rechnern -Expansion-Port-Synthesizerin Ste- 
reo - Retten einer nicht ordnungsgemäß geschlos- 
senen Datei - Erzeugen einer BASIC-Zeile in BASIC - 
Kassettenpuffer als Datenspeicher - Sortieren von 
Stringfelder - Multitasking auf dem COMMODORE 
64 - POKE's und die Zeropage - GOTO, GOSUB und 
RESTORE mit berechneten Zeilennummern, INSTR 
und STRING-Funktion - Repeat-Funktion für alle 


EDV 
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Tasten - und vieles andere mehr. Alle Maschinen- 
programme mit BASIC-Ladeprogrammen. 64 Tips & 
Tricks ist eine echte Fundgrube für jeden COMMO- 
DORE 64 Anwender. Schon über 65000mal verkauft! 


64 TIPS & TRICKS, 1984, über 300 Seiten, DM 49,- 


Know-how! 


350 Seiten dick ist die 4. 
erweiterte und überarbei- 
tete Auflage von 64 INTERN 
geworden. Das bereits über 
65000mal verkaufte Stan- 
dardwerk bietet jetzt noch 
mehr Informationen. Hinzu- 
gekommen ist ein Kapitel 
über den IEC-Bus und viele, 
viele Ergänzungen, die sich 
im Laufe der Zeit angesam- 
melt haben. Ebenfalls über- 
arbeitet und noch ausführlicher ist jetzt die Doku- 
mentation des ROM-Listings. Weitere Themen: 
genaue Beschreibung des Sound- und Video-Con- 
trollers mit vielen Hinweisen zur Programmierung 
von Sound und Grafik, der Ein/Ausgabesteuerung 
(CIAS), BASIC-Erweiterungen (RENEW, HARDCOPY, 
PRINTUSING), Hinweise zur Maschinenprogrammie- 
rung wie Nutzung der E/A-Routinen des Betriebs- 
systems, Programmierung der Schnittstelle RS 232, 
ein Vergleich VC20 - C-64- CBM zur Umsetzung von 
Programmen. Dies und viele weitere Informatio- 
nen machen das umfangreiche Werk zu einem 
unentbehrlichen Arbeitsmittel für jeden, der sich 
ernsthaft mit Betriebssystem und Technik des C-64 
auseinandersetzen will. Zum professionellen 
Gehalt des Buches tragen auch zwei Original-COM- 
MODORE-Schaltpläne zum Ausklappen und zahl- 
reiche ausführlich beschriebene und dokumen- 
tierte Fotos, Schaltbilder und Blockdiagrammebbei. 


64 INTERN, 4. überarbeitete und erweiterte Auflage, 
1984, ca. 550 Seiten, DM 69,- 
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Erfolgreich. 


64 für Profis zeigt, wie. man 
erfolgreich Anwendungs- 
probleme in BASIC löst und 
verrät die Erfolgsgeheim- 
nisse der Programmier- 
profis. Vom Programment- .. - 
wurf über Menüsteuerung, für Profis 
Maskenaufbau, Parametri- || +” 
sierung, Datenzugriff und 

Druckausgabe bis hin zur 
guten Dokumentation wird 
anschaulich mit vielen Bei- 
spielen dargestellt wie Profi-Programmierung vor 
sich geht. Besonders stolz sind wir auf die völlig 
neuartige Datenzugriffsmethode QUISAM, die in 
diesem Buch zum ersten Mal vorgestellt wird. 
QUISAM erlaubt eine beliebige Datensatzlänge, die 
dynamisch mitder Eingabe der Daten wächst. Eine 
lauffertige Literaturstellenverwaltung veran- 
Schaulicht die Arbeitsweise von QUISAM. Neben die- 
sem Programm finden Sie noch weitere PrO- 
gramme zur Lager- und Adressenverwaltung, Text- 
verarbeitung und einen Reportgenerator. Alle 
diese Programme sind mit Variablenliste versehen 
und ausführlich beschrieben. Damit sind diese für 
Ihre Erweiterungen offen und können von ihnen 
an Ihre persönlichen Bedürfnisse angepaßt wer- 
den. Steigen Siein dieWelt der Programmierprofis 
ein. 


64 FÜR PROFIS, 2. Auflage, 1984, ca. 300 seiten, 
DM 49- 
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Rundum gut! 


Endlich ein Buch, das Ihnen 
ausführlich und verständlich 
die Arbeit mit der Floppy VC- 
1541 erklärt. Das große 
Floppybuch ist für Anfänger, 
Fortgeschrittene und Profis 
gleichermaßen. interessant. 
Sein Inhalt reicht von der 
Programmspeicherung bis 
zum DOS-Zugriff, von der 
sequentiellen Datenspeiche- een 
rung bis zum Direktzugriff, 
von der technischen Beschreibung bis zum aus- 


führlich dokumentierten DOS-Listing, von den 
Systembefehlen bis zur detaillierten Beschreibung 
der Programme auf der Test-Demo-Diskette. Exakt 
beschriebene Beispiel- und Hilfsprogramme ergän- 
zen dieses neue Superbuch. Aus dem Inhalt: Spei- 
chern von Programmen -Floppy-Systembefehle - 
Sequentielle Datenspeicherung - relative Daten- 
Speicherung - Fehlermeldungen und ihre Ursa- 
chen - Direktzugriff - DOS-Listing der VC-1541 - 
BASIC-Erweiterungen und Programme - Overlay- 
technik - Diskmonitor - IEC-Bus und serieller Bus - 
Vergleich mit den großen CBM-Floppies. EinMuß für 
Laer ELODPYADIWENGIEN Bereits über 45.000mal 
verkau 


DAS GROSSE FLOPPY-BUCH, 2. überarbeitete Auflage, 
: 1984, ca. 320 Seiten, DM 49,- 


BASIC-PLUS. 


SIMON’S BASIC ist ein Hit - 
wenn man es richtig nutzen 
kann. Auf über 300 Seiten 
erklärt Ihnen das DATA 


BECKER Trainingsbuch detail- SIMON’s 
liert den Umgang mit den BAsıc 
über 100 Befehlen des Ba 
SIMON'S BASIC. Alle Befehle POESENEEN 


SIMON’ BASIC 


werden ausführlich dar- 
gestellt, auch die, die nicht 
im Handbuch stehen! Natür- TER 
lich zeigen wir auch die 
Macken des SIMON’s BASIC und geben wichtige Hin- 
weise wie man diese umgeht. Natürlich enthält das 
Buch viele Beispielprogramme und viele inter- 
essante Programmiiertricks. Weiterer Inhalt: Ein- 
führung in das CBM-BASIC 2.0 - Programmierhilfen 
-- Fehlerbehandlung - Programmschutz - Pro- 
grammstruktur - Variablen - Zahlenbehandiung - 
Eingabekontrolle-Ein/AusgabePeripheriebefehle 
- Graphik - Zeichensatzerstellung - Sprites - Musik 
-SIMON’SBASIC und dieVerträglichkeitmitanderen 
Erweiterungen und Programmen. Dazu ein um- 
fangreicher Anhang.Nach jedem Kapitel finden Sie 
Testaufgaben zum optimalen Selbststudium und 
zur Lernerfolgskontrolle. 


DAS TRAININGSBUCH ZUM SIMON’s BASIC, 2. über- 
arbeitete Auflage, 1984, ca. 380 Seiten, DM 49, 


Schrittmacher. 


Füttern 
erwünscht! 


Diese beliebte umfangreiche |j] Mn BScHER's 
Programmsammlung hat es 
in sich. Über 50 Spitzenpro- 
gramme für den COMMO- 
DORE 64 ausden unterschied- 
lichsten Bereichen, von 
attraktiven Superspielen 
(Senso, Pengo, Master Mind, 
Seeschlacht, Poisson Square, 
Memory) über Grafik- und 
Soundprogramme (Fourier 64, Akustograph, Funk- 
tionsplotterr und mathematische Programme 
(Kurvendiskussion, Dreieck) sowie Utilities (SORT, 
RENUMBER, DISK INIT, MENUE) bis hin zukompletten . 
Anwendungsprogrammen wie ‚Videothek‘, ‚File 
Manager“ und einer komfortablen Haushaltsbuch- 
führung, in der fast professionellgebucht wird.Der 
Hit zu jedem Programm sind aktuelle Program- 
miertips und Tricks der einzelnen Autoren zum sel- 
bermachen. Also nicht nur abtippen, sondern auch 
däbei lernen und wichtige Anregungen für die 
eigene Programmierung sammeln. 


DATA BECKER's GROSSE 64er PROGRAMMSAMMLUNG, 
1984, 250 Seiten, DM 49- 


Eine leicht verständliche Ein- A 
führung in die Maschinen- MASCHINENSPRACHE 
spracheprogrammierung BUCH 

für alle, denen das C-64 BASIC 
nicht mehr ausreicht. Sie 
lernen Aufbau und Arbeits- 
weise des 6510-Mikroprozes- 
sors kennen und anwenden. 
Dabei werden die Analogien 
zu BASIC Ihnen beim Verständnis helfen. Ein weite- 
res Kapitel beschäftigt sich mit der Eingabe von 
Maschinenprogrammen. Dort erfahren Sie auch 
alles über Monitor-Programme sowie über Assem- 
bler. Zum einfachen und komfortablen Erstellen 
Ihrer eigenen Maschinensprache enthält das Buch 
einen kompletten ASSEMBLER, damit Sie gleich von 
Anfang an komfortabel und effektiv programmie- 
ren können. Weiterhin finden Sie dort einen DIS- 
ASSEMBLER, mit dem Sie sich Ihre Maschinenpro- 
gramme oder die Routinen des BASIC-Interpreters 
und des BASIC-Betriebssystems ansehen können. 
Ein besonderer Clou ist ein in BASIC geschriebener 
Einzelschrittsimulator, mit dem Sie Ihre Pro- 
gramme schrittweise ausführen können. Dabei 
werden Sie nach jedem Schritt über Register- 
inhalte und Flags informiert und können den logi- 
schen Ablauf Ihres Programmes verfolgen. Eine 
unschätzbare Hilfe, besonders für den Anfänger. 
Als Beispielprogramm finden Sie ausführlich 
beschriebene Routinen zur Grafikprogrammie- 
rüng und für BASIC-Erweiterungen. Natürlich sind 
alle Beispiele und Programme auf den C-64 zuge- 
schnitten. 


DAS MASCHINENSPRACHEBUCH ZUM COMMODORE 64, 
ca. 200 Seiten, DM 39,- 


ZUM COMMODORE 64 


SYNTHIMAT 


SYNTHIMAT verwandeit ihren COMMODORE 64 in 
einen professionellen, polyphonen, dreistimmi- 
gen Synthesizer, der in seinen unglaublich vie- 
len Möglichkeiten großen Systemen kaum 
nachsteht. 


SYNTHIMAT in Stichworten: 

drei Oszillatoren (VCOs) mit 7 Fußlagen und 8 
Wellenformen - drei Hüllkurvengeneratoren 
(ADSRS) - ein Filter (VCF) mit8 Betriebsarten und 
Resonanzregulierung - VCF mit Eingang für 
externe Signalquelle - ein Verstärker (VCA) - 
Ringmodulation mit allen drei VCOs - 8 soft- 
waremäßig realisierte Oszillatoren (LFOSs) - Kräf- 
tiger Klang durch polyphones Spielen - zwei 
Manuale (Solo und Begleitung) - speichern von 
bis zu 256 Klangregistern - schneller Register- 
wechsel - speichern von 9 Registerdateien auf 
Diskette - „Bandaufnahme" auf Diskette durch 
direktes Spielen - keine lästige Noteneingabe - 
speichern von bis zu 9 „Bandaufnahmen' je Dis- 
kette - integrierte 24 Stunden-Echtzeituhr - 
einstellbares PITCH-BENDING - farblich gekenn- 
zeichnete, übersichtlich angeordnete Module - 
umfangreiches Handbuch -läuftmiteinem Dis- 
kettenlaufwerk - Diskettenprogramm. 


DM 99-- 


STRUKTO 64 


STRUKTO 64 ist eine fantastische neue Program- 
miersprache für strukturiertes Programmieren 
mit dem C-64 und füralleProgrammierer geeignet, 
die den C-64 als Allround-Computer einsetzen und 
auf einfache Weise anspruchsvolle Programme 
erstellen wollen. 


STRUKTO 64 In Stichworten: 

Interpretersprache, die dieVorzüge von BASIC und 
PASCAL vereint - Strukturiertes Programmieren - 
übersichtliche Programme - leichte Erlernbarkeit 
- einfache Bedienung -eingebautesToolkit erleich- 
tert das Eingeben und Verbessern von Program- 
men -leichteres Arbeiten mit der Floppy - Sprite- 
Editor ermöglicht das Einlesen der Sprite-Formen 
direkt vom Bildschirm - Graphikbedienung wird 


mit gut durchdachten Befehlen unterstützt - 


Abspielen von Musik ist unabhängig vom Pro- 
grammablauf möglich - ca.80 neue Befehle -liefer- 
bar als Diskettenprogramm - ausführliches deut- 
sches Handbuch. 


DM 99- 


Für viele ein Traum, für die meisten bisher zu 
teuer: die Rede ist von einer echten Datenbank 
für den 64er. SUPERBASE 64 füllt eine Lücke. 
Nicht allein die Kapazität, die verwaltet werden 
kann, bewegt sich in professionellen Regionen, 
die ausgeprägten Fähigkeiten des SUPERBASE 
64 im Rechnen und Kalkulieren lassen dieses 
Paket beinahe als Rund-Um-Software erschei- 
nen. 


SUPERBASE 64 in Stichworten: 
maximale Datensatzlänge 1108 Zeichen, verteilt 
auf bis zu 4 Bildschirmseiten - bis zu 127 Felder 
pro Datensatz, wobei Textfelder bis zu 255 Zei- 
chen lang sein können - insgesamt 15 Einzel- 
dateien können zu einerSUPERBASE-Datenbank 
verknüpft werden - Speicherkapazität nur 
durch Diskette begrenzt - umfangreiche Aus- 
wertungsmöglichkeiten und komfortabler 
Report-Generator - Kalkulationsmöglichkeiten 
und Rechnen - Import- (Einlesen von externen 
Daten) und Export- (Ausgabe von SUPERBASE 
Dataien als sequentielle Datei) Funktionen 
ermöglichen Datenaustausch mit anderen Pro- 
grammen - durch leistungsfähige, eigene 
Datenbanksprache auch als kompletter An- 
wendungsgenerator verwendbar. | 


DM 398,- 


MASTER 64 


MASTER 64 ist ein professionelles Programm- 
entwicklungssystem für den C-64, das esihnen 
ermöglicht, die Programmentwicklungszeit 
auf einen Bruchteil der sonst üblichen Zeit zu 
reduzieren. MASTER 64 bietet einen Programm- 
komfort, den Sie nutzen soliten. 


MASTER 64 In Stichworten: 
70 zusätzliche Befehle - Bildschirmmasken- 


generator - definieren von Bildschirmzonen - 
Eingabe aus Zonen - formatierte Ausgabe - 


 Abspeicherung von Bildschirminhalten - Arbei- 


ten mit mehreren Bildschirmmasken - ISAM 
Dateiverwaltung, in der Datensätze über einen 
zugriffschlüsselangesprochen werden können 
- Datensätze bis zu 254 Zeichen -Schlüssellänge 
bis zu 30 Zeichen - Dateigröße nur von Disket- 
tenkapazität abhängig - Zugriff über Schlüssel 
und Auswahlmasken - Bildschirm- und Druck- 
maskengenerätor - Erstellung beliebiger För- 
mulare und Ausgabemasken - BASIC-Erweite- 
rungen - Toolkitfunktionen - Mehrfachgenaue 
Arithmetik (Rechnen mit 22 Stellen Genauig- 
keit). 


DM 198,- 


TEXTOMAT 


Das Bearbeiten vonTexten gehört zum wichtig- 
sten Betätigungsfeld von Homecomputer-An- 
wendern. So ist es auch nicht verwunderlich, 
daß eine UnzahlverschiedenerTextprogramme 
für den 64er angeboten wird. TEXTOMAT zeich- 
net sich dadurch aus, daß er auch vom Einstei- 
ger sofort benutzt werden kann. Über eine 
Menuezeile können alle Funktionen angewählt 
werden. Selbstverständlich beherrscht TEXTO- 
MAT deutsche Umlaute und Sonderzeichen. 


TEXTOMAT in Stichworten: 
Diskettenprogramm - durchgehend menue- 
gesteuert - deutscher Zeichensatz auch auf 
COMMODORE-Druckern Rechenfunktionen für 
alleGrundrechenarten - 24.000 Zeichen proText 
im Speicher - beliebig lange Texte durch Ver- 
knüpfung - horizontales Scrolling für 80 Zei- 
chen pro Zeile - läuft mit 1oder 2Floppies -frei 
programmierbare Steuerzeichen - Formular- 
steuerung für Randeinstellung u.s.w. - kom- 
plette Bausteinverarbeitung - Blockoperatio- 
nen, Suchen und Ersetzen - Serienbriefschrei- 
bung mit DATAMAT - formatierte Ausgabe auf 
Bildschirm - an fast jeden Drucker anpaßbar - 
ausführliches deutsches Handbuch mit 
Übungslektionen. 


DM 99-- 


PAINT PIC 


Malen (!) mit dem Computer, welch eine faszinie- 
rende Idee. Mit dem Malprogramm PAINT PIC für 
den COMMODORE 64 wird diese Idee Realität. Mit 
PAINT PiCistesauch für den Einsteigerleicht, fanta- 
stische Computerbilder zu erstellen. Man kann die 
Bilder auf Diskette abspeichern und wieder laden 
und selbstverständlich steht auch weiterhin der 
COMMODORE-Zeichensatz zur Verfügung. Wichtig: 
PAINT PIC benötigt keine zusätzliche Hardware. 


PAINT PIC in Stichworten: 

Programmsteuerung: Tastatur - Steuerung des 
Stifts: Cursortasten und eckige Klammer (diag.) 
(Joystick Kann benutzt werden) - Routinen: Linien, 
Rechtecke, Dreiecke, Parallelogramme, Kreise, 
Kreisbögen, Ellipsen, Bestimmung von Mittelpunkt, 
und perspektivischer Linie, Kopieren und Drehen 
von Teilbildern, Verdoppeln, halbieren und spiel- 
geln von Teilbildern - Modi: Malstiftmodus 
(schmale Linie) Pinselmodus (8 verschiedene Brei- 
ten) (Art der Linie selbst definierbar) — Textmodus 
(kompl. Zeichensatz COMMODORE) (Hoch-Tief- 
Schrift) - Speichern: Teilbilder (Blöcke) oder ganze 
Bilder — Menue: 1 Hauptmenue mit8 Untermenues 
- mit ausführlichem deutschen Handbuch -Disket- 


tenprogramm - Bilder kann man auf Diskette 


abspeichern. 
DM 99,- 


PROFIMAT- 


Wer sich tiefer in die Innereien des Computers 
begeben will, kommt ohne besonderes Werk- 
zeug nicht aus. Einerseits muß der volleEinblick 
in alle Speicherbereiche möglich sein, anderer- 
seits soll der Umgang mit Maschinenprogram- 
men so komfortabel wiemöglich gestaltetsein. 
PROFIMAT hat Lösungen für beide Probleme: 
Der Maschinensprache-Monitor PROFI-MON bie- 
tet alle Hilfsmittelzum Umgang mit Maschinen- 
programmen; PROFI-ASS ist ein Macro-Assem- 
bier, der das Schreiben von Maschinenpro- 
grammen fast so einfach macht wie das Pro- 
grammieren in BASIC. 


PROFIMAT In Stichworten: 
Registerinhalte und Flags anzeigen - Speicher- 
innalte anzeigen - Maschinenprogramme 
laden, ausführen und speichern - Speicher- 
bereiche durchsuchen, vergleichen, füllen und 
verschieben - echter Einzelschrittmodus - Set- 
zen von Unterbrechungspunkten - schneller 
Trace-Modus - Rückkehr zu BASIC - formatfreie 
Eingabe - Verkettung beliebig vieler Quellpro- 
gramme - erzeugter Objektcode kann in Spei- 
cher oder auf Diskette gehen - formatiertes 
Assemblerlisting - Iladbare Symboltabellen - 
redefinierbare Symbole - Operatoren - Unter- 
stützung der Fließkommaarithmetik - be- 
dingte Assemblierung - Assemblerschleifen - 
MACROS mit beliebigen Parametern. 


DM 99,- 


KONTOMAT 


KONTOMAT ist ein menuegesteuertes Einnah- 


- me-Überschußprogramm nach 8413) EStG mit 


Kassenbuch, Bankkontenüberwachung, auto- 
matischer Steuerbuchung, AFA Tabellenerstel- 
lung, Kontenbiättern, Ermittlung der USt-Vor- 
anmeldungswerte und Monats- und Jahres- 
abrechnung. Der neue KONTOMAT ist voll para- 
meterisiert und läßt sich damit an Ihre Bedürf- 
nisse anpassen. Für alleGewerbetreibenden, die 
nicht laut HGB zur Buchführung verpflichtet 
sind. KONTOMAT ist für den gewerblichen Ein- 
satz, aber auch als Lernprogramm oder zur 
Haushaltsbuchführung geeignet. 


KONTOMAT In Stichworten: 

Diskettenprogramm - maximal 120 Konten - 
Beträge mit bis zu 6Vor- und 2Nachkommastellen - 
4 Mehrwert- und Vorsteuersätze - intervallmäßige 
Belegeingabe - 4 Buchungsarten (SOLL, HABEN, 
SOLL/HABEN und°HABEN/SOLL) - Anzeige der Soll- 
und Habensumme bei mehrfachen Buchungssät- 
zen - komfortable Belegeingabe mit Datum, 
Buchungstext, Stuerkennzeichen und Betrag - 
Druck des Journais während der Belegeingabe - 


Druck von umfangreichen Kontenblättern -Druck . 


einer Summen- und Saldenliste mit Monats- und 
Jahresumsatzsummen - betriebswirtschaftliche 
Auswertung mit Druckausgabe - Ermittlung und 
Druckausgabe der Umsatzsteuerzahllast - Speiche- 
rung der Anlagegüter und automatische Abschrei- 
bung am Jahresende - übersichtliche AfA-Liste - 
arbeitet mit 1 oder 2Laufwerken - umfangreiches 
deutsches Handbuch. 
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FAKTUMAT 
Mit FAKTUMAT ist das Schreiben von Rechnun- 
gen kein Alptraum mehr. Eine Sofortfakturie- 
rung mit integrierter Lagerbuchführung. Indi- 
viduelle Anpassung von Steuersätzen, Maßein- 
heiten und Firmendaten. Kunden- und Artikel- 
stamm voll pflegbar. Schneller Zugriff auf Kun- 
den- und Artikeldaten, über freidefinierbaren, 
6-stelligen Schlüssel. Automatische Fortschrei- 
bung von Artikel- und Kundendaten, individuell 
nutzbar. Alles in allem die Arbeits- und Zeit- 
ersparnis, die Sie sich schon immer gewünscht 
haben. 


FAKTUMAT in Stichworten: 
vollmenuggesteuert -läuftmiteineroder zwei 
Floppies - Diskettenwechsel (eine Floppy) nur 
beim Wechsel vom Hauptmenue ins Unterpro- 
gramm und umgekehrt - mit Ausnahme des 
Ausschaltens der Floppy während der Verarbei- 
tung werden alle Fehler abgefangen (z.B. Druk- 
‘kernicht eingeschaltet -arbeitet mit 1525, 1526 
(?), MPS 801, EPSON Drucker und DATA BECKER 
Interface - voll parameterisiert: Firmenkopf, 
MWSt. und Rabattsätze, Größe der Dateien belie- 
big wählbar - 5 Zeilen für Firmenkopf je 30 
Zeichen (erste Zeile erscheint auf derRechnung 
in Breitschrift - A Mehrwertsteuer-Sätze; wäh- 
rend der Rechnungsschreibung können also 
“Artikel mit unterschiediichem Mehrwert- 
steuer-Satz verrechnet werden - 10 Rabatt- 
sätze (Rabattsatz 1 vorbelegt mit 0%), bei der 
Rechnungsschreibung kann jedem Artikel ein 
Rabattsatz zugewiesen werden - maximal 1900 
Artikel bei 50 Kunden oder 950 Kunden bei 100 
Artikel (max. Artikei = 1M000-Kundenl+2; max. 
Kunden = [2000-Artikell/2) - manuelle Eingabe 
von Artikeln und/oder Kunde während der 
Rechnungsschreibung - d.h. es können mehr 
Artikel verrechnet weden als überhaupt in die 
Datei passen (bei Verzicht auf Lagerbuchfüh- 
rung) bzw. es können Rechnungen an Kunden 
geschrieben werden, die nicht erfaßt wurden - 


integrierte Lagerbuchführung mit Ausgabe 
einer Inventurliste - Rechnungsbeträge und 
Datum werden in der Kundendatei festgehal- 
ten - Druck von: Rechnung (mit Abbuchen aus 
Lager), Rechnung (ohne Abbuchen aus Lager), 
Lieferschein - deutsches detailliertes Hand- 
buch mit Übungs- und Anwendungsteil - 
deutsche Bedienerführung innerhalb des Pro- 
gramms (z.B. „Artikel nicht vorhanden‘ anstelle 
„RECORD NOT PRESENT"). 
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UNI-TAB 


Heute schon die Bundesliga-Tabelle von morgen 
kennen, das geht mit UNI-TAB. AlleRechnereien, die 
man ohne dieses Programm nie machen würde, 
lassen sich in Sekundenschnelle durchführen. Wer 
will, kann mit simulierten Spielergebnissen den 
Weltmeister '86 vorausberechnen. Aber nicht nur 
Fußball-Ligen können tabellarisch erfaßt werden, 
fast alle Sportarten sind UNI-TAB-fähig. Gag am 
Rande: für viele Sportarten stehen die bekannten 
Piktogramme zur Verfügung. 


UNI-TAB in Stichworten: 

Menuesteuerung über die Funktionstasten mit 
leicht verständlichen Auswahlmöglichkeiten - 
Bedienerfreundlich (Mannschaften werden über 
Kennzahlen gesteuert) - Ligen mit 4 bis 20 Mann- 
schaften können verwaltet werden (6 bis 38 Spiel- 
tage möglich) - unsinnigeLigen (z.B.13 Mannschaf- 
ten sollen 5 Spieltage absolvieren) sind ausge- 
schlossen - favorisierte Mannschaft kann während 
des Programmablaufs durch reverse Darstellung 
gekennzeichnet werden - Tabelle kann geändert 
werden (wichtig bei Spielanullierungen) - drei ver- 
schiedene Tabellenarten können abgespeichert 
und später eingelesen werden (die aktuelle Tabelle 
iunabhängig von der Vollständigkeit eines Spiel- 
tagesl, der komplette Spieltag [Vollständigkeit und 
Nummer des Spieltages werden automatisch 
errechnet], die simulierte Tabelle [der Anwender 
kann so selbst Schicksal spielen und seinen Tip spä- 
ter mit dem tatsächlichen Geschehen verglei- 
chen]) - zwei verschiedene Arten der Saisonüber- 
sicht (die statistische Übersicht zeigt an, welchen 
Tabellenplatz das jeweilige Team bei welchem 
Punkte- und Torverhältnis an den einzelnen Spiel- 
tagen einnahm; die graphische Übersicht zeigt die 
Leistungskurve jeder Mannschaft) - alle Tabelien 
und Graphiken sind als Hardcopy auf einem Druk- 
ker darstellbar - bei Fehlbedienung (z.B. ge- 
wünschte Druckausgabe bei nicht eingeschalte- 
tem Drucker) erscheinen leicht verständliche 
deutsche Fehlermeldungen. 
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SUPERGRAFIK 64 


Entdecken Sie die faszinierende Welt der Com- 
putergraphik mit SUPERGRAFIK 64, der starken 
Befehlserweiterung mit den vielseitigen Mög- 
lichkeiten. Durch die neue verbesserte Version 
jetzt noch leistungsstärker. 


SUPERGRAFIK 64 in Stichworten: 

2 unabhängige Graphikseiten (320x200 Punkte) 
- logische Verknüpfung der beiden Graphiksei- 
ten (AND, OR, EXOR) - 1 Standard Low-Graphik 
Seite (80x50 Punkte) - Normalfarben Graphik 
(300 x 200 Punkte) - Multicolor-Graphik (160 x 200 
Punkte) - verdecktes Zeichnen (z.B. Text sicht- 
bar, Graphikseite 2 wird erstellt) -Textfensterin 
der Graphik - 183 Befehle und Befehlskombina- 
tionen (1. Für jeden Befehl wählbare Zwischen- 
modi: Zeichnen, Löschen, Punktieren, Graphik- 
Cursor bewegen, Zeichnen mit/ohne Farbset- 
zung, Punkte zählen; 2. Durch einfache Befehle 
zu Steuernde Graphikfiguren: Punkt, Linie, 
Linienschar, Linie vom’ Graphik-Cursor, Kreise, 
Kreisbögen, Ellipse, Ellipsenbögen, selbstdefi- 
nierbare Figuren, rotieren und vegrößern die- 
ser Figuren, Rahmen, Feld, Text in Graphik: 3. 
Weitere Graphikbefehle: Graphikseiten- und 
Moduswechsel, Graphik löschen, Graphik inver- 
tieren, Scrolling von Text und Graphik, Wählen 
der Rahmen- Hintergrund- Zeichen- oder 
Punktfarbe) - Speichern, Laden von Graphik 
(auch verdeckt) - Kopieren des Textbildschirms 
in die Graphikseite - Hardcopies für EPSON, Sei- 
kosha GP100VC, Farbidrucker Seikosha GP700 
und andere mit DATA BECKER Interface - 16! 
Sprites gleichzeitig auf dem Bildschirm - alle 
Sprite-Eigenschaften veränderbar - Positionie- 
ren und Bewegen (!) von 16 Sprites gleichzeitig 
und unabhängig voneinander, während das 
übrige Programm weiterläuft (IRO) - Sprite-Kol- 
lisionsüberprüfung, Joystickunterstützung - 
automatische Unterbrechung des BASIC-Pro- 
gramms bei Kollisionen (Interrupt), Sprung in 
Unterbrechungsroutine, dann Weiterführung 
des Hauptprogramms - komfortable Sound- 
programmierung mit Verstellung aller mög- 
lichen Sound-Parameter (Lautstärke, Klang, Fil- 
ter, Tonhöhe, Tonlänge), ebenfalls unabhängig 
vom übrigen Programmlauf - zahlreichen Pro- 
grammiertools (MERGE, RENUMBER usw. - um- 
fangreiche Anleitung - Diskettenprogramm. 
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PASCAL 64 


Beim Wort „Compiler“ fällt dem Eingeweihten 
Sicher der Begriff „Geschwindigkeit“ ein. Ein 
PASCAL-Compiler sollte jedoch weitere Assozia- 
tionen wecken. Strukturiertes Programmieren 
heißt das Zauberwort. PASCAL wurde eigens zu 
didaktischen Zwecken entwickelt und erfüllt 


diese Aufgabe auch heute noch. Der PASCAL 64 
Compiler bringt diese phantastische Program- 
miersprache auf den 64er. 

Gerade die neue, verbesserte Version unter- 
stützt die Möglichkeiten des C-64 in jeder Hin- 
sicht und macht leistungsfähige Programme 
möglich. 


PASCAL 64 in Stichworten: 

besitzt einen sehr umfangreichen Befehlsvor- 
rat - erlaubt Interruptprogrammierung und 
bietet Schnittstellen zu Monitor und Assembler 
- erzeugt sehr schnelle Programme in reinem 
Maschinencode - unterstützt relative Dateiver- 
waltung, Graphik und Sound - bietet die Daten- 
typen REAL, INTEGER, CHAR und BOOLEAN sowie 
Aufzähltypen und POINTER, die zu Datenstruk- 
turen RECORD, SET, ARRAY und PACKED ARRAY 
kombiniert werden können - erlaubt vorzeiti- 
gen Abschluß von Prozeduren mit EXIT, unein- 
geschränkte Rekursionen und komfortableVer- 
arbeitung von Teilfeldern (Strings) - ist ein ausS- 
gereiftes, deutsches Produkt und wird mit aus- 
führlichem Handbuch geliefert. 
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DISKOMAT- 


Der Umgang mit Diskettenlaufwerken ist für 
viele noch immer mit Geheimnissen belastet. 
Andere störensich an den wenig komfortablen 
Diskettenbefehlen des BASIC V2. DISKOMAT 
bringt Abhilfe; alle Diskettenbefehle des BASIC 
4.0 stehen zur Verfügung. Außerdem können 
mit dem Programm SUPERTWIN zwei 1541-Lauf- 
werke wie ein Doppellaufwerk verwaltet wer- 
den. Für Benutzer, die sich die Fähigkeiten der 
Floppy 1541 ganz erschließen wollen, steht der 
DISK-MONITOR bereit; er macht es endlich mMÖQ- 
lich, den direkten Zugriff auf einzelne Blocks 
einfach und bequem vorzunehmen. 


DISKOMAT in Stichworten: 
Diskettenprogramm - DISK BASIC unterstützt 
Diskettenbefehle des BASIC 4.0 L(CONCAT, 
HEADER, APPEND, RENAME, OPEN, COLLECT, 
DSAVE, SCRATCH, DCLOSE, BACKUP, DLOAD, DIREC- 
TORY, RECORD, COPY, CATALOG, DS & DS$) - SUPER 
TWIN behandelt 2 Laufwerke 1541 wie ein Dop- 
pellaufwerk -DISK-MONITOR ermöglicht direkte 
Analyse und Manipulation von Disketten (direk- 
tes Lesen und Schreiben einzelner Blöcke, 
ändern von Blöcken mittels Bildschirm-Editor, 
Anzeige des Diskettenstatus, direktes Absen- 
den von Disketten-Befehlen) - ausführliches 
deutsches Handbuch beschreibt jeden einzel- 
nen der 3 Programmteile. 
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HAUSVERWALTUNG 


Jetzt können alle Hausbesitzer aufatmen: das Pro- 
gramm HAUSVERWALTUNG bietet ihnen eine sehr 
komfortable Verwaltung der Mietwohnungen mit 
dem COMMODORE 64. 

Alles, was Sie dazu brauchen, ist ein COMMODORE 64, 
ein Diskettenlaufwerk 1541, ein anschlußfähiger 
Drucker und das obengenannte Programm HAUS- 
VERWALTUNG. Die nachfolgenden und viele weitere 
leistungsfähige Features ermöglichen eine äußerst 
rationelle Verwaltung Ihrer Mietwohnungen. 


HAUSVERWALTUNG In Stichworten: 
Dikettenprogramm -Verwaltung von 50 Einheiten 


pro Objekt möglich - Stammdatenverwaltung für 
Häuser und Mieter - Verbuchen der Miete, Neben- 


kosten und Garagenmieten - Mietkontoanzeige — 


Haus- und Mieteraufstellung - Mahnungen - Ver- 
buchen der anfallenden Kosten - Kostengegen- 
überstellung - Jahresendabrechnung mit automa- 
tischem Jahresübertrag - umfangreiches deut- 
Sches Handbuch. 
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TRAININGSKURS zu ADA 


DieseProgrammiersprache.der Zukunft, die das 
Pentagon in Auftrag gegeben hat, wird jetzt 
durch DATA BECKER auch dem C-64 Anwender 
zugänglich gemacht durch denTRAININGSKURS 
zu ADA, der eine sehr gute Einführung in diese 
Supersprache bietet. Der dazu gelieferte Com- 
piler liefert ein umfangreiches Subset der 
Sprache. 


ADA in Stichworten: 

blockstrukturierte Programme - modularer 
Aufbau der Programme - ‚ermöglicht die 
Behandlung von Ausnahmezuständen - FeEhler- 
überprüfung beim Übersetzen und zur Laufzeit 
- ermöglicht das einfache Einbinden von 
Maschinenprogrammen - sehr leichtes Arbei- 
ten mit Programmbibliotheken - Programm- 
diskette enthält Editor, Übersetzer, Assembler 
und Disassembler - umfangreiches deutsches 
Handbuch. 
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DATAMAT 


Daten verwalten kann ein schier endloses Han- 
tieren mit Karteikästen und Aktenordnern 
bedeuten; kann aber auch C-64 plus DATAMAT 
heißen. Dann wird Suchen und Sortieren zum 
Spaß. Der DATAMAT bietet in seiner neuen Ver- 
sion einiges, was in dieser Preisklasse bisher 


‘ Uunvorstellbar schien. Nicht nur Geschwindig- 


keit und Bedienungsfreundlichkeit wurden 
weiter verbessert, auch die Anpassung an die 
meisten Drucker ist inzwischen machbar. 


DATAMAT In Stichworten: 
menuegesteuertes Diskettenprogramm, da- 
durch extrem einfach zu bedienen - für jede 
Art von Daten - völlig frei gestaltbare Eingabe- 
maske - 50 Felder pro Datensatz - 253 Zeichen 
pro Datensatz -biszu 2000 Datensätze pro Datei 
je nach Umfang - Schnittstelle zu TEXTOMAT - 
läuft mit 1 oder 2 Floppies - völlig in Maschinen- 
Sprache - extrem schnell - deutscher Zeichen- 
Satz auch auf COMMODORE-Druckern -fastjeder 
Drucker anschließbar - ausdrucken über RS 232 
- duplizieren der Datendiskette - verbesserte 
Benutzerführung - Hauptprogramm komplett 
im Speicher (kein Diskettenwechsel mehr) - 
integrierte Minitextverarbeitung - deutsches 
Handbuch mit Übungslektionen 

Sie können: 

jeden Datensatzin2-3Sekunden suchen - nach 
beliebigen Feldern selektieren - nach allen Fel- 
dern gleichzeitig sortieren - Listen in völlig 
freiem Format drucken - Etiketten drucken. 
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ZAHLUNGSVERKEHR 


Umfangreicher Zahlungsverkehr kann zur 
Plage werden. Das Software-Paket ZAHLUNGS- 
VERKEHR übernimmt den größten Teil dieser 
Arbeit. Außer den notwendigen Fähigkeiten für 
das Ausfüllen und Auflisten von Überweisun- 
gen und Schecks ist der ZAHLUNGSVERKEHR in 
der Lage, Sammellisten, Einzugslisten etc. selb- 
ständig zusammenzustellen. 


ZAHLUNGSVERKEHR in Stichworten: 
Diskettenprogramm - max. 100 Zahlungsemp- 
fänger pro Diskette - drei definierbare Absen- 
derbanken - 25 Zahlungsdateien - 14 frei defi- 
nierbare Formulare - Kontrolldruck bei Beleg- 
eingabe möglich - Eingabe von Rechnungs- 
daten oder eines Verwendungszwecks - Aus- 
druck einer Sammel-Überweisungsliste - Kor- 
rekturmöglichkeit der einzelnen Zahlungs- 
dateien -arbeitetmiteineroderzweiFloppies- 
umfangreiches deutsches Handbuch. ' 


DAS STEHT DRIN: 
Das CASSETTENBUCH enthält alles über die Datas- 
sette und Cassettenspeicherung mit Ihrem COMMO- 
DORE 64 und VC-20. Mit absoluten Spitzenprogram- 
men. 


Aus dem Inhalt: 


— Befehle zur Handhabung der Datassette 

— Lautsprecher an der Datassette, Kopfjustage 

— Steuerung der Datassette per Programm 

— Anhängen von Basicprogrammen 

— Sekundäradresse, Statusvariable 

— Speicherformat von Daten und Programmen 

— Wichtige Speicherstellen des Cassetten- 
betriebssystems 

— gl en macht die Datassette 

20 mal schneller 

_ Komfortables D Datenverwaltungsprogramm 

— Backup von Disk auf Cassette und umgekehrt 

... und vieles mehr! 


ng GESCHRIEBEN HAT DIESES BUCH: 
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Fe 2 vor allen. ein u Piumereanlarer, u 64er r und 
VC-20 in- und auswendig kennt. Nach VC-20 Tips & 
Tricks ist dies bereits sein zweites DATA BECKER 
Buch, in dem er es versteht, komplizierte Sachverhal- 


te leicht verständlich darzustellen. 


